


DMC 11 ee CZDNFCO FICHE 1 OF 1 sariren™ BUBUUEDM 





ee sees 


CZDMF = =6MACY11 30A(1052) O8-JUL-80 08:26 PAGE 2 


C2DMF P11 08-JUL-80 08:25 
REM 


MN — OC OWN NMEFWNH -OCOnNovrwn 


PORIPON — @ SS Ss 


24 


$ 


IDENTIFICATION 


PRODUCT CODE: AC-8556C-MC 

PRODUC NAME: CZDMFCO BISTUF MD LN UNI TSTS 
DATE: AUGUST 1980 

MAINTAINER: DIAGNOSTICS-MERRIMACK 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DICITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1976, 1980 BY DIGITAL EQUIPMENT CORPORATION 
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| 3 ABSTRACT 
47 THE FUNCTION OF THE DMC11 DIAGNOSTICS IS TO VERIFY THAT THE 
48 OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
49 VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 
0 OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT. 
52 PARAMETERS MUST RE SET UP TO ALERT THE DIAGNOSTICS TO THE 
53 DMC11 CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
54 STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 
55 INPUT = THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE 
26 PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY. 
58 CZDMF TESTS THE OMC-11 LINE UNIT (M8201 OR M8202). IT 
59 PERFORMS WRITE/READ TESTS ON THE DMC LINE UNIT REGISTERS. IT 
60 CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION IN 
61 BITSTUFF MODE. THE MODEM SIGNALS ARE ALSO CHECKED . CZDMF 
62 REQUIRES A DMC MICRO=-PROCESSOR (M8200 OR M8204, TO RUN. FOR 
63 BEST DIAGNOSIS A TURN-AROUND CONNECTOR SHOULD OE INSTALLED, 
64 HOWEVER We DIAGNOSTIC WILL RUN WITHOUT IT (SOME TESTS ARE 
os SKIPPED) 
67 CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT ARE TO BE 
68 RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 

| $9 WILL BE DETECTED AT AN EARLY STAGE. 
a NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
’3 THE FIVE DIAGNOSTICS ARE: 
75 1. DZDMC CREV] BASIC W/R AND MICRO-PROCESSOR TESTS 
76 2. DZDME CREV] DDCMP LINE UNIT TESTS 
77 3. DZDMF CREV) BITSTUFF LINE UNIT TESTS 
78 4. DZDMG CREV)] JUMP AND CROM TESTS 

. 5. DZDMH CREV] FREE-RUNNING TESTS (HEAT TEST TAPE) 
1 NOTE: THE NAMES OF THESE DIAGNOSTICS MAY VARIE AS EACH IS UPDATED. 
83 
ee REQUIREMENTS 
se EQUIPMENT 
Ag ANY PDP11 FAMILY CPU (EXCEPT AN LSI-11) WITH MINIMUM 8K MEMORY 
89 ASR 33 (OR EQUILIVALENT) 
90 DMC11=AR WITH DMC11-DA OR DMCII-FA OR 
4 DMC11-AL WITH DMC11-MA OR DMC11-MD 

| 
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93 
94 
3 2.2 STORAGE 
97 PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND 
98 BOOTSTRAP LOADER RESIDE. LOCATIONS 1500 THRU 1640; CONTAIN 
99 THE "STATUS TABLE'’ INFORMATION WHICH IS GENERATED AT START OF 
100 DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 
101 (AUTO=SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 
102 ALTERED BY THE OPERATOR. 

3 ? LOADING PROCEEDURE 

106 3.1 ME THO 

108 ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
109 ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 
110 AS DISK ,MAGTAPE,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS 
11 FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 
132 MEDIA. 

N6 ABSOLUTE LOADER STARTING ADDRESS *500 

116 MEMORY * SIZE 

117 

118 4k 17 

119 8K 37 

120 12k 57 

121 16K 77 

122 20K 117 

123 24K 137 

124 28% 157 

125 

126 

127 3.1.1 PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 

128 (ALSO PLACE ‘HALT’ Sw UP) 

f 3.1.2 DEPRESS "LOAD ADDRESS’ KEY ON CONSOLE AND RELEASE. 

132 3.1.3 DEPRESS ‘START KEY" ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
133 BE LOADING INTO CPU) 

134 

135 
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137 

138 4, STARTING PROCEEDURE 

140 A. SET SWITCH REGISTER TO 000200 

141 B. DEPRESS "LOAD ADDRESS’ KEY AND RELEASE 

142 C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SWR BITO=1 FOR MANUAL 
143 INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS 
144 SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN DMC11 
145 DIAGNOSTIC. 

146 D. DEPRESS ‘START KEY' AND RELEASE. THE PROGRAM WILL TYPE 
147 MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 
148 UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 

130 MAP OF DMC11 STATUS 

152 PC CSR. STAT! STAT2  STAT3 

154 001500 160010 145310 177777 000000 

135 001510 160020 145320 177777 000000 

157 THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN THE DIAGNOSTIC. 
158 THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 
159 TABLE STARTING AT ADD. 1500 IN THE PROGRAM. IN THIS EXAMPLE 
160 THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMC11'S. 
161 THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
162 1s DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 

HELP. 

164 IF THE DIAGNOSTIC WAS STARTED WITH SWOO=1 INDICATING MANUAL 
165 PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 
166 QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 

168 HOW MANY DMC11°S TO BE TESTED?1 

169 01 

170 CSR ADDRESS?160010 
171 VECTOR ADDRESS?310 

172 BR PRIORITY LEVEL? (4,5,6,7)25 

173 DOES MICRO-PROCESSOR HAVE CRAM? (Y OR N)N 

174 WHICH LINE UNIT? IF NONE TYPE ''N'', IF M8201 TYPE ‘I', IF 
175 MB202 TYPE ‘'2''21 

176 1S THE LOOP BACK CONNECTOR ON?Y 

177 (THE NEXT QUESTION WILL BE ASKED ONLY IF M8201 AND LOOP BACK CONNECTOR) 
178 WHICH MODEM TYPE, TYPE ''D'' FOR DMC11-DA (RS232C), OR 

175 TYPE “'F'’ FOR DMCI1-FA (V.35) ? D 

180 SWITCH PAC#1 (DOCMP LINE#) 2377 

181 SWITCH PAC#2 (BM873 BOOT ADD) 2377 

182 FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 
183 DESCRIBED ABOVE, THE INFORMATION IN THE MAP REFLECTS THE 
184 ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 
185 SwOO=0 AND SWO7=0 (AUTO-SIZING) THEN NO QUESTIONS ARE ASKED 
186 AND ONLY THE STATUS-MAP IS PRINTED OUT. IF AUTO-SIZING IS 
187 USED THE STATUS INFORMATION MUST BE VERIFIED TO BE CORRECT 
188 (MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 
189 DIAGNOSTIC MUST BE RESTARTED WITH SWOO=1 AND THE QUESTIONS 
1 ANSWERED. 
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bt 4.1 CONTROL SWITCH SETTINGS 
195 Sw 15 SET: HALT ON ERROR 
196 SW 14 SET: LOOP ON CURRENT TEST 
197 SW 13 SET: INHIBIT ERROR PRINT OUT 
198 Sw 12 SET: INHIBIT TYPE OUT/ABELL ON ERROR. 
199 Sw 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 
200 SW 10 SET: ESCAPE TO NEXT TEST ON ERROR 
201 SW 09 SET: LOOP WITH CURRENT DATA 
202 SW 08 SET: CATCH ERROR AND LOOP ON IT 
203 SW Q7 SET: USE PREVIOUS STATUS TABLE. 
204 SW 06 SET: HALT IN ROMCLK ROUTINE BEFORE CLOCKING 
205 MICRO-PROCESSOR 
206 SW 05 SET: RESERVED 
207 oo SW 04 SET: RESERVED 
208 SW 03 SET: RESELECT DMC11°S DESIRED ACTIVE 
209 SW O02 SET: LOCK ON SELECTED TEST 


Sw 00 SET: BUILD NEW STATUS TABLE FROM QUESTIONS. (IF Sw07=0 
AND SWOO0=0 A NEW STATUS TABLE IS BUILT BY 
AUTO=SIZING) 


SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
WHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-03 AND SWITCH 07 
ARE STATIC, AND ARE USED ONLY ON STARTING OR RESTARTING THE 
DIAGNOSTIC. 


MIMIMOMRINIAPP 
— et ae 8 a 
DBNOVWPFwr— 


210 é Sw 01 SET: RESTART PROGRAM AT SELECTED TEST 
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4.1.2 SWITCH REGISTER OPTIONS (AT START UP) 


SW 01 


Sw 02 


SW 03 


METHOD: 


RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
WHEN THIS SWITCH IS USED THE DIAGNOSTIC WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 
5 ala RETURN TO BEGIN EXECUTION AT THE SELECTED 


LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
SwWO1 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE wILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
IS HIT AGAIN. IF SWO2=0 WHEN SWO° IS USED. THE 
PROGRAM WILL BEGIN AT THE SELECTEC EST AND CONTINUE 
NORMAL OPERATIONS. 


RESELECT DMC11'S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO DMC11'S ACTIVE. THIS MEANS IF THE SYSTEM HAS 
FOUR DMC11S; BITS 00,01,02,03 WILL BE SET IN LOC 
"DMACTV' FROM THE SWITCH REGISTER. USING THIS 
SWITCH(SWOO) ALTERS THAT LOCATION; THEREFORE IF FOUR 
DMC11S ARE IN THE SYSTEM ***0Q NOT*** SET SWITCHS 
GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD BE 
A FATAL ERROR. DO NOT SELECT MORE ACTIVE DMC11S_ THAN 
THERE IS INFORMATION ON IN THE STATUS TABLE. 


A: LOAD ADDRESS 200 

B: START WITH SW 00=1 

C: PROGRAM WILL TYPE MESSAGE 

D: SET A SWITCH FOR EACH DMC DESIRED ACTIVE. 
EXAMPLE: IF YOU HAVE 4 DMC'S BUT ONLY WANT TO 
RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 
3 = 1. PRESS CONTINUE 

E: NUMBER (iF VALID) WILL BE IN DATA LIGHTS 
(EXCLUDING 11/05) 

rt SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 


PRESS CONTINUE. 


SEQ 0006 
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DYNAMIC SWITCHES 
FRROR SWITCHES 


1 SW 12 DELETE PRINT OUT/BELL ON ERROR. 

‘. SW 13 DELETE ERROR PRINTOUT. 

3. SW 15 HALT ON THE ERROR. 

4 SW 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
5 SW 10 GOTO NEXT TEST(ON ERROR). 


SCOPE SWITCHES 


1. $W06 HALT IN  ROMCLK ROUTINE BEF ORE CLOCKING 
MICRO-PROCESSOR INSTRUCTION. THIS ALLOWS THE 
OPERATOR TO SCOPE A MICRO=-PROCESSOR INSTRUCTION IN 
THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
CONTINUE TO RESUME RUNNING. 

2. Sswog (IF ENABLED BY "SCOP1") ON AN ERROR; IF AN ‘#' IS 
PRINTED IN FRONT OF THE TEST NO. (EX. *TEST NO. 
10 ) S$WO9 IS INCORPORATED IN THAT TEST AND 
THEREFORE SWO9 IS USUALLY THE BEST SWITCH FOR THE 
SCOPE LOOP (SW14=0, SW10=0, SwWO9=1, SwO8=0). IF 
SwO9 IS NOT ENABELED; AND THERE IS A HARD ERROR 
(CONSTANT); SWO8 IS BEST. (SW14=1,0, SwWi0=0, 
SWO9=0, SWO8=1). FOR INTERMITTEMT ERRORS; SW14=1 
WILL LOOP ON TEST REGUARDLESS OF ERROR OR NOT 
ERROR. (SW14=1, SWI0=0, SWO9=0, SwO8=1,0) 

3. Swit INHIBIT INTERATIONS. 

4. Swi4 LOOP ON CURRENT TEST. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE DMC11 DIAGNOSTICS. (SEE SECTION 4.0) 


NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
IS UNDER ACT11 OR XXDP CONTROL AND WILL ACT 
ACCORDINGLY AFTER ALL AVAILABLE DMC11°S ARE TESTED THE 
PROGRAM WILL RETURN TO 'XXDP* OR ‘ACT=-11". 


OPERATING PROCEDURE 
WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 


SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC 


SEQ 0007 


| 
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310 
311 
at 5.2 PROGRAM AND/OR OPERATOR ACTION 
ie THE TYPICAL APPROACH SHOULD BE 
316 ‘. HALT ON ERROR (VIA Sw 15=1) WHEN EVER AN ERROR OCCURS. 
317 2. CLEAR Sw 15. 
318 3, SET Sw 14: (LOOP ON THIS TEST) 
a 4. SET Sw 13: (INHIBIT ERROR PRINT OUT) 
321 THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
322 ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 
323 AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
324 TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 
325 THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
326 NOTE THE PS OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 
327 THE TEST CAN BE DETERMINED. 
329 6. ERRORS 
331 AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND 
332 PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING Sw 13=0 AND SW 
333 12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
334 IN THE THE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 
335 THE ERROR. 
336 
337 6.2 ERROR RECOVERY 
339 IF FOR SOME REASON THE DMC11 SHOULD ‘HANG THE BUS' (GAIN 
340 CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
34 AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN 
342 CONTROL OF CPU. IF THIS SHOULD HAPPEN; LOOK IN LOCATION 
343 "TSTNO' (ADDRESS 1226)FOR THE NUMBER OF THE TEST THAT WAS 
344 RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 
365 THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DMC11 WAS DOING 
346 AT THE TIME OF THE ERROR. 
4 
348 7. RESTRICTIONS 
349 
350 74 STARTING RESTRICTIONS 
352 SEE SECTION 4. (PLEASE) 
353 STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW “PROGRAM WAS 
354 STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 
355 THE INFORMATION PRINTED ON THE TTY TO COMPLETLY ISOLATE 
356 PROBLEMS. 
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OPERATING RESTRICTIONS 


THE FIRST TIME A DMC11 DIAGNOSTIC IS LOADED INTO CORE AND RUN 
THE STATUS TABLE MUST BE SET UP. THIS IS DONE BY MANUAL INPUT 
(SWOO=1) OR BY AUTOSIZING (SWOO=0 AND SwO07=0). THEREAFTER 
HOWEVER THE STATUS TABLE NEED NOT BE SETUP BY SUBSEQUENT 
RESTARTS OR EVEN LOADING THE NEXT DMC DIAGNOSTIC BECAUSE THE 
STATUS TABLE IS OVERLAYED. _ THE CURRENT PARAMETERS IN THE 
STATUS TABLE ARE USED WHEN SWO7=1 ON START UP. 


HARDWARE CONFIGURATION RESTRICTIONS 


DMC11(M8200)- JUMPER W1 MUST BE IN, AND SWITCH 7 OF E76 MUST 
BE IN THE OFF POSITION. 


KMC(M8204)= JUMPER W1 MUST BE IN. 


LINE ee age JUMPERS Wi, W2, AND W4 MUST BE IN. JUMPERS 
w3, AND WS MUST BE OUT. SW8 OF £26 MUST BE IN THE ON 


POSITION. 


LINE UNIT (M8202)- JUMPER W1 MUST BE IN. SW8 OF E26 MUST BE 
IN THE OFF POSITION. 


MISCELLANEOUS 
EXECUTION TIME 


ALL DMC11 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS* MESSAGE 
(PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 

ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 

POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 

Pa PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 
Y ° 


PASS COMPLETE 


NOTE: EVERY TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN 
AS IF SwW1i1 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 
"VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE. THEREFORE THE 
FIRST PASS EACH TIME PROGRAM IS STARTED- WILL BE A ‘QUICK 
PASS’ UNTIL ALL DMC11'S IN SYSTEM ARE TESTED. WHEN THE 
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. - 


END PASS CZDMF CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 
EACH DMC11 THAT IS RUNNING, AND ARE SET TO ZERO ONLY 
WHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER AN 
OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS 
FOR EACH DMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 
REFLECTED IN PASSES: AND ERRORS:. 


SEQ 0009 
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KEY LOCATIONS 

RETURN (1214) CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 


NEXT (1216) CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 


PEFORMED 

TSTNO (1226) CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 

RUN (1316) THE BIT _ "RUN' * POINi, TO THE OMC11 
CURRENTLY BEING TESTED. _ EXAMPLE: (RUN) 


1302/0000000001000000 MEANS THAT DMC11 NO.06 
IS THE DMC11 NOW RUNNING. 


DMCROO-DMCR17 

DMSTOO-DMST17 

(1500)-(1640) 
THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) DMC11S SEQUENTIALY. 
THEY CONTAIN THE CSR,VECTOR AND STATUS 
CONCERNING THE CONFIGURATION OF EACH DMC11. 


DMACTV (1306) EACH BIT SET IN THIS ete ag bing f- THAT 
THE ASSOCIATED DMC11 WILL BE TESTED IN TURN. 
EXAMPLE: (DMACTV) 127670060000000011111 MEANS 
THAT DMC11 NO. 0,0 WILL BE TESTED. 
EXAMPLE: (DMACTV) "T2467600600900001000 MEANS 
THAT DMC11 NO. 00,04 WILL BE TESTED 


DMCSR (1402) aaa THE CSR OF THE CURRENT DMC11 UNDER 


"STATUS TABLE’ (1500-1640) 


THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY 
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) 10 
SUIT THE SPECIFIC CONFIGURATION. 


THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO DMC11'S. THE TABLE CAN CONTAIN UP TO 16 ODMC11°S. 
Anh eae THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 
NTRY 


MAP OF DMC11 STATUS 


PC CSR STATI STAT2 STATS 


001500 160010 145310 177777 000000 
001510 160020 016320 000000 000000 


SEQ 0010 
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EACH MAP ENTRY CONTAINS 4 WORDS WHICH CONTAIN THE STATUS 

INFORMATION FOR 1 OMC11. THE PC SHOWS WHERE IN CORE MEMORY 

THE FIRST OF THE 4 WORDS IS. IN THE XARPLE ABOVE THE FIRST 

DMC'S STATUS IS IN LOCATIONS, 1500 1504, AND 1506. THE 

SECOND DMC STATUS IS LOCATED AT S40. 9 50! 1514, AND 1516. 

THe oy ORMAT ION CONTAINED IN sain a WORD ENTRY [S DEFINED AS 
LLOWS: 


CSR: CONTAINS DMC11 CSR ADDRESS 


-08 IS DMC11 VECTOR ADDRESS 
ICRO-PROCESSOR HAS CRAM 
ICRO=PROCESSOR HAS CROM 
URNAROUND CONNECTOR IS ON 
O TURNAROUND CONNECTOR 
INE UNIT IS AN M8201 

NE UNIT IS AN M8202 


LINE UNIT 
1S ah BR PRIORITY LEVEL 
S 


WITCH PAC#1 (DDCMP LINE NUMBER) 
S SWITCH PAC#2 (BM873 BOOT ADD) 


N FREE RUNNING Lt Of KMC11 


STATI: 


Se2rr-z1225 


-O- 


IS 
I 
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503 
gee 8.5 METHOD OF AUTO SIZING 
rs 8.5.1 FINDING THE CONTROL STATUS REGISTER. 
508 THE AUTO=SIZING ROUTINE FINDS A DMC11 AS FOLLOWS: IT STARTS 
509 Ai ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 
510 TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 
511 es THE FOLLOWING IS oa THE FIRST CROM ADDRESS IS WRITTEN 
512 A 125252 THEN IT IS READ BACK. IF IT CONTAINS A =-1 OR 
513 195952 OR 626 OR A 16520 A DMCi1 HAS BEEN FOUND, IF NOT, THE 
514 ADDRESS IS UPDATED BY 10 AND THE SEARCH CONTINUES. A -1 
515 INDICATES A  DMC11 WITH NO CROM OR CRAM, A 125252 INDICATES A 
516 KMC11 WITH CRAM, A 626 INDICATES A_ DMC11-AL AND A_ 16520 
517 INDICATES DMC11-AR. FURTHER TESTS ARE PERFORMED AT THIS POINT 
518 TO DETERMINE WHICH LINE UNIT, IF ANY, IS INSTALLED, IF A 
519 LOOP=BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH SETTINGS 
520 ON THE LINE UNIT. THIS IS WHY THE STATUS TABLE MUST BE 
521 VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
522 AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 


THE QUESTIONS MUST BE ANSWERED. ALL DMCi1'S IN THE SYSTEM 
WILL BE FOUND BY THE AUTO-SIZER. IF IT DOES NOT FIND A_DMC11 
THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED. 


8.5.2 FINDING THE VECTOR AND BR LEVEL 


THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE 
INSTRUCTION IOT AND  ‘.+2° (NEXT ADDRESS). THE PROCESSOR 
STATUS IS STARTED AT 7 AND THE DMC IS PROGRAMMED TO INTERRUPT. 
THE PS IS LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY IS 
MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A 
BAD DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT SR LEVEL 
5 AND TKe PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 
PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
CORRECT VECTOR. IF AN INTERUPT OCCURED; THE ADDRESS TO WHICH 
THE DMC11 INTERUPTED TO IS PICKED UP AND REPORTED AS THE 
VECTOR. NOTE: IF THE VECTOR REPORTED IS NOT THE VECTOR SET 
_ oe YOU; THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 
NE. 


8.6 SOFTWARE SWITCH REGISTER 


IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 
ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 
REGISTER IS USED. 


CONTROL: 


TO OBTAIN CONTROL AT ANY at ouae TIME DURING EXECUTION OF 
THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE 
TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED, BY 
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
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SWR=XXXXXX NEW? 


WHERE XXXXXX 1S THE CURRENT CONTENTS GF THE SOFTWARE SWITCH 
REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 
TO TYPE ONE OR_ MORE OF THE LEGAL CHARACTERS: 1) 0 - 7, 2) 
LINE FEED(<LF>), 3) CARRIAGE RETURN(<CR>), OR 4) CONTROL-U 
(CTRL U). NO CHECK IS MADE FOR LEGALITY. IF THE INPUT 
CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TC BE 
AN OCTAL DIGIT. 


TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 
THE NEW DESIRED VALUE IN OCTAL - LEADING ZEROS NEED NOT BE 
TYPED. AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF> 
DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 
AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 


WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC 
WILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS 
INTERRUPTED. IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 
WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 
pie Mn gh 9 RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 
AD 


IF A CTRL U IS TYPED AT ANY POINT IN THE JNPUT STRING PRIOR TO 
THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 
PROMPT DISPLAYED (SWR = XXXXXX NEW?). 


TO SET THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 
DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC. 


HISTORY 


pe DIAGNOSTIC WAS UPDATED TC DETECT FOR THE CONDITION OF V.55 
M8201. IN THIS CONIFURATION, RING WILL NOT BE LOOPED Back 
AND SHOULD NOT BE TESTED FOR. 


SEQ 0013 


ee ee 


SS sss 


C20" MACY11 Meri 


CIDMF P11 


606 





08-JuL-80 


Pe: Staines 08:26 PAGE 15 


SEQ 0014 


peal 
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190000 


000001 


a Pe 
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«NLIST 


:*CZDMFCO STSTUF MD LN UNT TSTS DMc11 DDOCMP LINE UNIT TESTS 
+ * COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


aon bed tec 
SOAD P ROGRA 

; LOAD ADDRESS 000200 

:SWR=0 AUTOSIZE DMC11 

:SWO7=1 USE CURRENT DMC11 PARAMETERS 

:SWOO=1 INPUT NEW DMC11 PARAMETERS 

sPRESS START 

;PROGRAM WILL TYPE shinee’ e BR di cdos MD LN UNT TSTS DMC11 DOCMP LINE UNIT TESTS" 
;PROGRAM WILL TYPE STATUS M 

;PROGRAM WILL TYPE ‘'R'' TO INDICATE THAT TESTING HAS STARTED 

:AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

AND THEN RESUME TESTING 

; SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


: SWITCH REGISTER OPTIONS 


SW15=100000 ;=1,HALT ON ERROR 

S$W14=40000 ‘21, LOOP ON CURRENT TEST 

SwW13=20000 =1,iNHIBIT ERROR TYPEQUT 

SW12=10000 ssi, ‘DELETE TYPEOUT/BELL ON ERROR. 

SwW11=4000 =1, INHIBIT ITERATIONS 

$W10=2000 3=1,ESCAPE TO NEXT Test ON ERROR 

SwWO9=1000 3;=1,LOOP WITH CURRENT DATA 

$w08=400 21, LOOP ON ERROR 

$w07=200 3=1,USE CURRENT DMC11 PARAMETERS, =O, AUTOSIZE DMC11 
$w06=100 :=1, HALT BEFORE CLOCKING MICRO- PROCESSOR INSTRUCTION 
$w05=40 

$w04=20 

$w03=10 SRESELECT DMC11°S oF BE TESTED (ACTIVE) 

SWO02=4 ;LOCK ON TEST SELEC 

SwO1=2 RESTART PROGRAM +} SELECTED TEST 

SwO0=1 ‘INPUT DMC11 PARAMETERS 


SEQ 0015 


a ee 


ers 
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17 
0003 CZDMF P11 08-JUL-80 08:25 GENERAL DEFINATIONS AND EQUIVALENCIES SEQ 0016 
647 
648 
649 ;REGISTER DEFINITIONS 
650 ptm t eee nnn e nnn e eee 
651 
652 000000 RO=%0 ;GENERAL REGISTER 
653 000003 R1=%1 :GENERAL REGISTER 
654 000002 R2=%2 ;GENERAL REGISTER 
655 000003 R3=%3 ;GENERAL REGISTER 
656 000004 RG=%4 ;GENERAL REGISTER 
657 000005 R5=%5 ;GENERAL REGISTER 
| 658 000006 CO=%6 :PROCESSOR STACK POINTER 
659 000007 PC=%7 :PROGRAM COUNTER 
661 ;LOCATION EQUIVALENCIES 
662 j Cee neeeeeseceecenccese 
663 
664 177776 PS=177776 ;PROCESSOR STATUS WORD 
$65 001200 STACK=1200 ;START OF PROCESSOR STACK 
667 ; INSTRUCTION DEFINITIONS 
se asian pcan 
670 005746 PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
671 005726 POP1SP=5726 ; INCREMENT PROCESSOR STACK 1 wORD 
672 010046 PUSHRO=10046 ;SAVE RO ON STACK 
673 012600 POPRO=12600 ;RESTORE RO FROM STACK 
674 024646 PUSH2SP=24646 ;DECREMENT STACK TWICE 
675 022626 POP2SP=22626 Z INCREMENT STACK TWICE 
676 ~EQUIV. EMT,HLT ;BASIC DEFINITION OF ERROR CALL 
6 
678 ;BIT DEFINITIONS 
OFF a OS” OP aeeeeenaeeieniomen 
680 
681 100000 B1T15=100000 
682 040000 B1T14=40000 
683 020000 B1T13=20000 
684 010000 BIT12=10000 
685 004000 B1T11=4000 
686 002000 B1T10=2000 
687 001000 B1T9=1000 
688 000400 BIT8=400 
689 000200 BIT7=200 
690 000100 BIT6=100 
691 000040 BIT5=40 
692 000020 BIT4=20 : 
693 000010 BIT3=10 
694 000004 BIT2=4 
695 000002 BIT1=2 
696 000001 BITO=1 





0004 


000024 
0 


000052 


000174 
000176 


000200 
001000 
001040 


001200 
001202 
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000000 


000024 


000000 


000174 
90000 
000900 


000200 
000137 


001000 
005377 
046504 


001200 


177570 
177570 
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J RRA A THREAT REHEAT ATER ETHER EEE REREERE HERE E HERE RHE ee EEE EHEreeere 
;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
: THE STANDARD ‘TRAP CATCHER’ IS PLACED 
:BETWEEN ADDRESS 0 TO oe ta 776. 
:1T LOOKS LIKE "'PC#2 HAL 


PERERA AERRHRH EE HEEREEEEREHEEREHEERAERERERERHERAEAHEEEHERERERER EERE RE 


=0 
; STANDARD INTERRUPT VECTORS 
=26 
LPFAIL :POWER FAIL HANDLER 
340 “SERVICE AT LEVEL 7 
“HLT “ERROR HANDLER 
340 "SERVICE AT LEVEL 7 
“TRPSRV GENERAL HANDLER DISPATCH SERVICE 
a! SERVICE AT LEVEL 7 
3 0 ;SAVE FOR ACT=11 OR XXDP 
0 RETURN ADDRESS IF UNDER ACT=11 OR XXDP 
0 “SAVE FOR ACT<-11 OR XXD 
SENDAD POR USE WITH ACTOT) Om BBO 
4 0 SACT=11 PROGRAM CHARACTERISTICS 
.217%4 
DISPREG:0 ;SOFTWARE DISPLAY REGISTER 
SWREG: 0 ‘SOFTWARE SWITCH REGISTER 
.=200 
692002 JMP “START GO TO START OF PROGRAM 
-=1000 
055103 046504 MTITLE: .ASCII <377><12>/C2DMECO BISTUF MD LN UNT TSTS/<377> 
030503 020061 “ASCIZ /DMC11 DDCMP LINE UNIT TESTS/<377> 
.=1200 
INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 
DISPLAY:177570 
SWR: 177570 


SEQ 0017 


ma 


CZDMF 
005 CZDMF P11 
745 
746 
747 
748 
749 001204 
750 001206 
751 001210 
752 001212 
753 
754 
755 
| 756 
| 757 001214 
| 758 001216 
759 001220 
760 001222 
761 001224 
762 001226 
763 001230 
764 001232 
765 001234 
766 
767 
768 
769 
770 001236 
771 001240 
772 001242 
773 001244 
774 001246 
775 001259 
776 001252 
777 001254 
778 001256 
779 001260 
780 001262 
781 001264 
782 001266 
783 001270 
784 001272 
785 001274 
786 001276 
787 001300 
788 01302 
789 001304 
790 001306 
791 001310 
792 001312 
793 001314 
794 001316 
795 
796 001320 
797 001322 


- 


MACY11 30A(1052) 
08-JUL-80 08 


177560 


177566 


000000 


000000 


000000 


000000 


001472 
001676 
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..'g 
SEQ 0018 


; INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 


;TELETYPE KEYBOARD CONTROL REGISTER 
; TELETYPE KEYBOARD DATA BUFFER 
;TELEPRINTER CONTROL REGISTER 
;TELEPRINTER DATA BUFFER 


NEXT: 


LSTERR: 


COOCCOWOOO 


: SCOPE ADDRESS FOR LOOP ON TEST 
ADDRESS OF NEXT TEST TO BE EXECUTED 
TADDRESS FOR LOCK ON CURRENT DATA 
;NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
;NUMBER OF ITEREATIONS COMPLETED 
:NUMBER OF TEST IN PROGRESS 
;NUMBER OF PASSES COMPLETED 
; TOTAL NUMBER OF ERRORS 
PC OF LAST ERROR CALL 


;PROGRAM VARIABLES 


STAT: 


Co eleloleleleleleleilajejlelelelelelela) 


: .BLKW 1 


-BLKW 1 


: .BLKW 1 
: .BLKW 1 


0 


DM.MAP-6 
CNT .MAP-4 


;SWITCHES AT START OF PROGRAM 
;DM STATUS WORD STORAGE 


; TEMPORARY 
; TEMPORARY 
; TEMPORARY 
; TEMPORARY 
; TEMPORARY 
;RO STORAGE 
;R1 STORAGE 
;R2 STORAGE 
;R3 STORAGE 
3R4 STORAGE 
7RS STORAGE 
STACK POINTER STORAGE 

;PROGRAM COUNTER STORAGE 


STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 


HIGHEST LOCATION FOR NPR'S 
;DMC11°S SELECTED ACTIVE. 
;OCTAL NUMBER OF DMC11'S. 
ORIGINAL ACTV DEVICES 
;WORKABLE NUMBER 

;POINTER TO RUNNING DEVICE. 


; TABLE POINTER. 
; TABLE POINTER 


1006 


CZDMF MACY) pte i! 

CZDMF P11 08-JUL-80 0 
798 
799 
800 
801 
802 001324 000 
803 001325 000 
804 001326 000 
805 001327 000 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 001330 
816 104400 
817 001330 003576 
818 104401 
819 001332 003736 
820 104402 
821 001334 003766 
822 104403 
823 001336 004050 
824 104404 
825 001340 004154 
826 104405 
827 001342 004174 
828 104406 
829 001344 004374 
830 104407 
831 001346 004434 
832 104410 
833 001350 004466 
834 104411 
835 001352 004472 
836 104412 
837 001354 005466 
838 104413 
839 001356 005436 
840 104414 
841 001360 005504 
842 104415 
843 001362 005552 
B44 104416 
845 001364 005616 
846 
847 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0019 


;PROGRAM CONTROL FLAGS 


INIFLG: .BYTE 
ERRFLG: .BYTE 
LOKFLG: .BYTE 
QV.FLG: .BYTE 


-EVEN 


;PROGRAM INITIALIZATION FLAG 
sERROR OCCURED FLAG 


;LOCK ON oes TEST FLAG 
;QUICK VERIFY FLAG. 
;ON FIRST PASS OF EACH DMC11 ITERATIONS WILL BE SUPPRESS 


;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
:POINTERS TO SUBROUTINES CAN BE FOUND 
7IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


; MOABBBREBRRRBRBERERSRARASASERRRE SESE RE RRR ARERR RARE RARER R RRR RRR RAR DODDS DD! 


“TRPTAB: 
SCOPE =TRAP+0 


- SCOPE 
SCOP 1= TRAP* | - 
ScoP 
TYPE= TRAP +2 
TY 
res teetades$ 
INSTR 
INSTER=TRAP+4 
. INSTER 
PARAM= TRAP®S 
SAVOS=TRAP+6 
.SAVO 
RESOS=TRAP+7 
-RESO5 
CONVRT=TRAP+10 
. CONVRT 
CNVRT= “TRAPS 
CN 
MSTCLR=TRAP#+12 
-MSTCLR 
DELAY= TRAP +13 
-DELA 
nomcumethaps 14 
-ROMCLK 
DATACLK=TRAP#15 


-DATACLK 
TIMER=TRAP+16 
. TIMER 


SCOPE LOOP AND ITERATION HANDLER 
LOOP CN CURRENT DATA HANDLER 
TELETYPE OUTPUT ROUTINE 

ASCII STRING INPUT ROUTINE 

INPUT ERROR HANDLER 

NUMERICAL DATA INPUT ROUTINE 
REGISTER SAVE ROUTINE 

REGISTER RESTORE ROUTINE 

DATA OUTPUT ROUTINE 

DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
ISUE A MASTER CLEAR 

DELAY 

CLOCK ROM ONCE 

CLK DATA 

DELAY A CLOCK TICK 


. 
preeeeaeteeeeeeeeeeeeterertteretereneeneaeanenegatetanenteraseenereens 
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CZ0MF 
0007 C2DMF P11 
849 
850 
851 
852 001366 
853 001370 
854 001372 
855 
856 
857 
858 
859 001374 
860 001376 
861 001400 
862 001402 
863 001404 
864 001406 
865 001410 
866 001412 
867 001414 
868 
869 
870 
871 
872 001416 
873 
874 
875 
876 
877 
878 
879 001500 
880 001500 
881 1502 
882 001504 
883 001506 
884 
885 001510 
886 001512 
887 001514 
888 001516 
889 
890 001520 
891 001522 
892 001524 
893 001526 
894 
895 001530 
896 001532 
897 001534 
898 001536 
ROG 
900 001540 
901 001542 
902 001544 
903 001546 
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000000 
000000 
000000 


000000 


000000 


00v000 
001460 


001500 
000001 


000001 
000001 


000001 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 


STATI: 0 
STAT2: 0 
STATS: 0O 


;DMC11 VECTOR AND REGISTER INDIRECT POINTERS 


DMRVEC: 0 ;POINTER TO DMC11 RECEIVER INTERRUPT VECTOR 

CMRLVL: 0 POINTER TO DMC11 RECEIVER INTERRUPT SERVICE PS 
DMTVEC: 0 POINTER TO DMC11 TRANSMITTER INTERRUPT VECTOR 
DMTLVL: 0 POINTER TO DMC11 TRANSMITTER INTERRUPT SERVICE PS 
DMCSR: 0 POINTER TO DMC11 CONTROL STATUS REGISTER 

DMCSRH: 0 ;POINTER TO DMC11 CONTROL STATUS REGISTER HIGH BYTE. 
DMCTL: 0 ;POINTER TO DMC11 CONTOL OUT REGISTER 

DMPO4: 0 ;POINTER TO DMC11 PORT REGISTER(SEL 4) 

DMPO6: 0 sPOINTER TO DMC11 PORT REGISTER(SEL 6) 


; TEMP STORAGE 


3DMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 00 
. 1 VECTOR FOR DMC11 NUMBER 00 

DMS200: .BLKWw 1 ;DDCMP LINE# FOR DMC11 NUMBER 00 

DMS300: .BLKW 1 73RD STATUS WORD 


DMCRO1: .BLKW 1 CONTROL STATUS REGISTER FOR DMC11 NUMBER 01 
DMS101: .BLKW 1 VECTOR FOR DMC11 NUMBER 01 
DMS201: .BLKW ;DDCMP LINE# FOR DMC11 NUMBER 01 


DMS301: .BLKW :3RD STATUS WORD 

DMCRO2: .BLKW | CONTROL STATUS REGISTER FOR DMC11 NUMBER 02 
: 1 ;VECTOR FOR DMC11 NUMBER 02 

DMS202: .BLKw | ;DDCMP LINE# FOR DMC11 NUMBER 02 

DMS302: .BLKW 1 ;35RD STATUS WORD 


DMCRO3: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 03 
DMS103: .BLKW 1 :VECTOR FOR DMC11 NUMBER 03 

bs 1 :DDCMP LINE# FOR DMC11 NUMBER 03 
DMS303: .BLKW 1 


;3RD STATUS WORD 
DMCRO4: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 04 
DMS104: .BLKW 1 >VECTOR FOR DMC11 NUMBER 04 
t « 1 :DDCMP LINC@ FOR DMC11 NUMBER 04 
DMS304: .BLKw 1 > 3RD STATUS WORD 


SEG 0020 


i@ 
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0008 MF P11 08-JUL-80 08:25 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0021 

001550 000001 DMCROS: .BLKw 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 05 
001552 000001 DMS105: .BLKW 1 “VECTOR FOR DMC11 NUMBER 05 
001554 000001 DMS205: .BLKW 1 “DDCMP LINE# FOR DMC11 NUMBER 05 
001556 000001 DMS305: .BLKW 1 =3RD STATUS WORD 
001560 000001 DMCRO6: .BLKW 1 sCONTROL STATUS REGISTER FOR DMC11 NUMBER 06 
001562 000001 DMS106: .BLKW 1 “VECTOR FOR DMC11 NUMBER 06 
001564 000001 DMS206: .BLKW 1 “DDCMP LINE# FOR DMC11 NUMBER 06 

313 001566 000001 DMS306: .BLKW 1 =3RD STATUS WORD 

915 001570 000001 DMCRO7: .BLKw 1 sCONTROL STATUS REGISTER FOR DMC11 NUMBER 07 

| 916 001572 000001 C%S107: .BLKW 1 “VECTOR FOR DMC11 NUMBER 07 
917 001574 000001 OMS207: .BLKW 1 =DDCMP LINE# FOR DMC11 NUMBER 07 

918 001576 000001 DMS307: .BLKW 1 =3RD STATUS WORD 
001600 000001 DMCR10: .BLKw 1 sCONTROL STATUS REGISTER FOR DMC11 NUMBER 10 
001602 000001 DMS110: .BLKw 1 “VECTOR FOR DMC11 NUMBER 10 
001604 000001 DMS210: .BLKw 1 =DDCMP LINE# FOR DMC11 NUMBER 10 

923 001606 000001 DMS310: .BLKW 1 =3RD STATUS WORD 
001610 000001 DMCR11: .BLKw 1 =CONTROL STATUS REGISTER FOR DMC11 NUMBER 11 

926 001612 000001 DMS111: .BLKw 1 :VECTOR FOR DMC11 NUMBER 11 

927 001614 000001 DMS211: .BLKW 1 :DDCMP LINE# FOR DMC11 NUMBER 11 

928 001616 000001 DMS311: .BLKw 1 =3RD STATUS WORD 

930 001620 000001 DMCR12: .BLKWw 1 =CONTROL STATUS REGISTER FOR DMC11 NUMBER 12 
001622 000001 DMS112: .BLKWw 1 =VECTOR FOR DMC11 NUMBER 12 
001624 000001 DMS212: .BLKw 1 :DDCMP LINE# FOR DMC11 NUMBER 12 

933 001626 000001 DMS312: .BLKw 1 *3RD STATUS WORD 
001630 000001 DMCR13: .BLKWw 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 13 

936 001632 000001 DMS113: .BLKWw 1 “VECTOR FOR DMC11 NUMBER 13 

937 001634 000001 DMS213: .BLKw 1 “DDCMP LINE# FOR DMC11 NUMBER 13 

938 001636 000001 DMS313: .BLKW 1 =3RD STATUS WORD 

940 001640 000001 DMCR14: .BLKw 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 14 
001642 000001 DMS114: .BLKW 1 “VECTOR FOR DMC11 NUMBER 14 

942 001644 000001 DMS214: .BLKw 1 “DDCMP LINE# FOR DMC11 NUMBER 14 

945 001646 000001 DMS314: .BLKWw 1 >3RD STATUS WORD 

945 001650 009001 DMCR15: .BLKw 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 15 

946 001652 000001 DMS115: .BLKw 1 “VECTOR FOR DMC11 NUMBER 15 

947 001654 000001 DMS215: .BLKw 1 =DDCMP LINE# FOR DMC11 NUMBER 15 

a8 001656 000001 DMS315: .BLKW 1 =3RD STATUS WORD 

950 001660 000001 DMCR16: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 16 
001662 000001 OMS116: .BLKW 1 “VECTOR FOR DMC11 NUMBER 16 

952 001664 000001 OMS216: .BLKw 1 “DDCMP LINE# FOR DMC11 NUMBER 16 

993 001666 000001 DMS316: .BLKW 1 >3RD STATUS WORD 

955 001670 000001 DMCR17: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 17 

956 001672 000001 DOMS117: .BLKw 1 “VECTOR FOR DMC11 NUMBER 17 

957 001674 000001 DMS217: .BLKw 1 “DDCMP LINE# FOR DMC11 NUMBER 17 

958 001676 000001 DMS317: .BLKw 1 =3RD STATUS WORD 


960 001700 000000 DM.END: 000000 
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0009 CZDMF P11 08-JUL-80 08:25 ROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. . SEQ 0022 


961 
: 962 ;DMC11 PASS COUNT AND ERROR COUNT TABLE 
| 964 
965 001702 CNT.MAP: 
966 001702 000000 PACTOO: 0 ;PASS COUNT FOR DMC11 NUMBER 00 
967, 001704 000000 ERCTOO: 0 ERROR COUNT FOR DMC11 NUMBER 00 
| 969 001706 000000 PACTO1: 0 PASS COUNT FOR DMC11 NUMBER 01 
970 001710 900000 ERCTOI: 0 ERROR COUNT FOR DMC11 NUMBER 01 
| 972 001712 000000 PACTO2: 0 ;PASS COUNT FOR DMC11 NUMBER 02 
| 973 001714 000000 ERCTO2: 0 ERROR COUNT FOR DMC11 NUMBER 02 
975 001716 000000 PACTO3: 0 ;PASS COUNT FOR DMC11 NUMBER 03 
976 001720 000000 ERCTO3: 0 ERROR COUNT FOR DMC11 NUMBER 03 
978 001722 000000 PACTO4: 0 ;PASS COUNT FOR DMC11 NUMBER 04 
| 979 001724 000000 ERCTO4: 0 ERROR COUNT FOR DMC11 NUMBER 04 
| 981 001726 000000 PACTOS: 0 ;PASS COUNT FOR DMC11 NUMBER 05 
982 001750 000000 ERCTOS: 0 ERROR COUNT FOR DMC11 NUMBER 05 
| 984 001732 000000 PACTO6: 0 ;PASS COUNT FOR DMC11 NUMBER 06 
| 985 001734 000000 ERCTO6: 0 ERROR COUNT FOR DMC11 NUMBER 06 
| 987 001736 000000 PACTO?: 0 ;PASS COUNT FOR DMC11 NUMBER 07 
| 988 001740 000000 EXCTO?: 0 ERROR COUNT FOR DMC11 NUMBER 07 
| 990 001742 000000 PACT10: 0 ;PASS COUNT FOR ‘DMC11 NUMBER 10 
| 991 001744 000000 ERCTIO: 0 ERROR COUNT FOR DMC11 NUMBER 10 
| 993 001746 000000 PACT11: 0 PASS COUNT FOR DMC11 NUMBER 11 
| 994 001750 000000 ERCT11: 0 ERROR COUNT FOR DMC11 NUMBER 11 
996 001752 000000 PACTI2: 0 PASS COUNT FOR DMC11 NUMBER 12 
997 001754 000000 ERCT12: 0 ERROR COUNT FOR DMC11 NUMBER 12 
999 001756 000000 PACT13: 0 ;PASS COUNT FOR DMC11 NUMBER 13 
1900 001760 00¢000 ERCT13: 0 ERROR COUNT FOR DMC11 NUMBER 13 
1002 001762 000000 PACT14: 0 ;PASS COUNT FOR DMC11 NUMBER 14 
1003 001764 000000 ERCTI4: 0 ERROR COUNT FOR DMC11 NUMBER 14 
| 1005 001766 000000 PACTIS: 0 ;PASS COUNT FOR DMC11 NUMBER 15 
| 1006 001770 000000 ERCT15: 0 ERROR COUNT FOR DMC11 NUMBER 15 
1008 001772 000000 PACTI6: 0 ;PASS COUNT FOR DMC11 NUMBER 16 
1009 001774 000000 ERCTI6: 0 ERROR COUNT FOR DMC11 NUMBER 16 
1011 001776 000000 PACTI7: 0 PASS COUNT FOR DMC11 NUMBER 17 
1012 002000 000000 ERCTI7: 0 ERROR COUNT FOR DMC11 NUMBER 17 





0010 
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CZDMF .P11 08-JuUL-80 08:25 
1014 


3s “4 WH Ww OT 


CSR: 


STATI: 


STAT2: 


STATS: 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


FORMAT OF STATUS TABLE 


10 09 08 07 06 05 04 03 O02 01 00 


I 
L 8. See oe ee CSR 


 ¥ I 
* Rie OA ee Oe STATI 


I 
> ey * 8.4 * STAT2 


ioe ee oe 
Telefe] STAT3 
oe 


CONTAINS DMC11 CSR ADDRESS 


-08 IS DMC11 VECTOR ADDRESS 
MICRO=PROCESSOR HAS CRAM 
MICRO-PROCESSOR HAS CROM 

27222 TURNAROUND CONNECTOR IS ON 
NO TURNAROUND CONNECTOR 

LINE UNIT IS AN M8201 

LINE UNIT IS AN M8202 

a 


INE UNIT 
1 IS DMC11 BR PRIORITY LEVEL 


LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


BITO=1 DO FREE RUNNING TESTS ON KMC 
(MUST BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLY]) 
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 
ZDMG TEST 2 FIRST 

=1 DMC11-AL LOCAL H!GH SPEED MICRO-CODE 
=0 DMC11-AR REMOTE LOW SPEED MICRO-CODE 
“0 DMC11-DA (RS252C) 
=1 DMCII-FA (v.35) 


~— ~4 =< 


SEQ 0023 


0011 


ce ED 


eEeEeEeEOeeeEeEeEeEeEeEeEeEeEeee———e—e—eeeeee 


CZDMF 
CZDMF .P1 









MACY11 30A(1052) 


1 
$ 


08-JUL-80 vite 


08-JUL-80 08:25 


’ < 
6 PAGE 25 
ROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


e 


SEQ 0024 


0012 


QO8-JUL-80 08:26 PAGE 26 
PROGRAM INITIALIZATION AND START UP. 


CZDMF MACY11 30A(1052) 
CZDMF P11 08-JUL-80 08:25 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 002002 012737 000340 
1080 002010 012706 001200 
1081 002014 012737 005336 
1082 2022 013737 001310 
1083 2030 005037 010144 
1084 002034 105037 001325 
1085 002040 105037 001327 
1086 002044 012737 001470 
1087 002052 012737 001676 
1088 2 012737 100000 
1089 2 012700 001702 
1090 002072 005020 

1091 002074 022700 002002 
1092 21 001374 

1093 002102 005037 001234 
1094 21 012737 000001 
Hs 64 002114 012737 002002 
1097 002122 013746 000006 
1098 002126 01374 § 000004 
1099 0021352 012737 002166 
1100 002140 012737 177570 
1101 002146 012737 177570 
1102 002154 022777 177777 
1103 002162 001402 

1104 002164 000407 

1105 002166 022626 

1106 002170 012737 000176 
1107 002176 012737 000174 
1108 22 012637 000004 
1109 002210 012637 000006 
1110 002214 105737 001324 
1111 002220 001006 

1112 002222 022737 003522 
1113 002230 001402 

1114 002232 104402 001000 
1115 002236 004737 007734 
1116 002242 017737 176754 
1117 002250 005737 000042 
1118 002254 001402 

1119 002256 005037 001236 
1120 002262 032737 000001 
1121 002270 001012 

1122 002272 105737 001236 
1123 002276 100007 

1124 002300 005737 001306 
1125 002304 001006 

1126 002306 104402 007155 


177776 


000024 
001314 


177020 


001202 
001200 


000042 


001236 


001236 


«START: 


23$: 


6$: 


7$: 


208: 





M 2 


; PROGRAM mei 
;LOCK OUT INTERRUPTS 
;SET UP PROCESSOR STACK 

:SET UP POWER FAIL VECTOR 

;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

; TYPE TITLE MESSAGE 


#340,PS 
#STACK,SP 
#.PFAIL ,a#24 
Tr yew 


QV.FLG 
#DM.MAP=10, CREAM: 
#CNT .MAP=4 MILK 
#81T15,RUN 
#CNT.MAP ,RO 


(RO) + 
#CNT.MAP+100,R0 
238 


Yh 
i, TSTNO 
*. START, RETURN 


a#6,-(SP) 


70,8 
ab ag ia? “DISPLAY 


aswr 
gse2 


$ 

(SP)+, ey 
#SWREG,S 
IDISPREG. DISPLAY: 
(SP) +, a6 
(SP) +, a86 

INIFLG 


20% 

#SENDAD ,a#42 
208 

-MTITLE 
PC,CKSWR 
@SWR,STRTSW 
atde 

.*6 

STRT SW 
#Sw00,STRTSW 
17$ 

STRTSW 

17% 

DMACTV 


16$ 
NOACT 


;LOCK OUT eo 
;SET UP STA 

;SET UP POWER FAIL VECTOR 

SAVE NUMBER OF A ae oe IN SYSTEM. 


[CLEAR SOFT TYPEOUT FLAG 
;CLEAR ERROR FLAG 


;ZERO QUICK VERIFY FLAG 
GET MAP POINTER. 

;GET PASS COUNT MAP POINTER 
:POINT POINTER TO FIRST DEVICE. 
;PASS COUNT POINTER TO RO 
:CLEAR TABLE 

:DONE YET? 

;KEEP GOING 

;CLEAR LAST ERROR POINTER 

:SET UP FOR TEST 1 

;SET UP FOR + ae FAIL BEFORE 
;TESTING STARTS 


:SAVE CURRENT VECTORS 


:SET UP FOR TIMEOUT 

:SET SWR TO HARD SWR ADDRESS 

+ SET DISPLAY TO HARD SWR ADDRESS 
REFERENCE HARDWARE SWITCH REGISTER 


HIF = =-1 USE SOFT SWR ANYWAY 


:IF IT EXISTS AND NOT = -1 USE HARD SWR 
;ADJUST STACK 

POINTER TO SOFT SWR 

POINTER TO SOFT DISPLAY REG 

+ RESTORE VECTORS 


MAS gamers BEEN PERFORMED 
71F ACT=11 AUTOMATIC MODE, DON'T TYPE ID 


sTYPE TITLE at ee 


CHECK FOR SOFT SWR 
: STORE STARTING SWITCHES 
. i os IN AUTO MODE? 


8 
at YES, CLEAR SWITCHES 
F SWOO=1. QUESTIONS ARE ASKED. 


HA IF Sw 06-1 
er rpel ss 
“BR IF 


$w07=0 
om iry DEVICES SELECTED? 
;NO DEVICES SELECTED. 





SEQ 0025 


N 2 


CZDMF MACY11 30A(1052) OB-JUL-80 08:26 PAGE 27 
0013 C2DMF.P11 08-JUL-80 08:25 PROGRAM INITIALIZATION AND START UP. SEQ 0026 
1127 002312 000000 HALT :STOP THE SHOW 
| 1128 002314 000776 BR 72 “DISQUALIFY CONTINUE SWITCH 
1129 002316 004737 010640 17$: JSR PC,AUTO.SIZE :GO DO THE AUTO SIZE 
| 1130 002322 105737 001324 16$: TSTB INIFLG sFIRST TIME? 
1131 002324 001410 BEQ 21$ :BR IF YES 
1332 00233) 105737 001236 TSTB STRTSW :IF USING SAME PARAMETERS DONT TYPE MAP 
| 1133 002334 100431 BMI 1$ 
1134 002336 032737 000006 001236 BIT #BITI'BIT2,STRTSW:IS TEST NO. OR LOCK SELECTED 
1135 002344 001403 BEQ 24$ -1F NO THEN TYPE STATUS 
1136 002346 000424 BR 1$ ‘IF YES DO NOT TYPE STATUS 
1137 002350 005137 001324 21$: COM INIFLG :SET FLAG 
1138 002354 104402 006225 4S: TYPE » XHEAD : TYPE HEADER 
1139 002360 012704 001500 MOV HOM. MAP RG :SET POINTER 
1140 002364 010437 001246 5$: MOV R4, TEMP1 :SET ADDRESS 
1141 002370 012437 001250 MOV (R4)+, TEMP2 “SET CSR 
1142 002374 001411 BEQ 1$ sALL DONE IF ZERO 
1143 002376 012437 001252 MOV (R4)+, TEMPS :SET STATI 
1144 002402 012437 001254 MOV (R4)+, TEMPS =SET STAT2 
1145 002406 012437 001256 MOV (R4)+, TEMPS ;SET STATS 
1146 002412 104410 CONVRT :TYPE OUT STATUS MAP 
1147 002414 007602 XSTATQ : 
1148 002416 000762 BR 5$ 
1149 002420 012700 001500 1$: MOV #DM.MAP RO :RO POINTS TO STATUS TABLE 
1151 SERRA AeA RARE AAAR ETE TE TERRA ER HAHA AKEKARAe AKA Ke eee tee eee ees 
1152 sz*AUTO SIZE TEST 
1153 ::*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
1154 :: ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
1155 ti eCHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DQ,DU,DUP,LK,DMC,DZ,KMC). 
1156 ::*]F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE DMC11, THE FIRST 
1157 ::*DMC11 ADDRESS 1S 760070, KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
1158 >: ADDRESS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE 
1159 ::*RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD 
1160 >:*YOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS 
1161 >:*THE NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 
1162 +:*WILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE 
1163 >: *CORRECT). 
1164 PLUAAee ARK eRAeAeAe eee eee tee etee tenet KeKeKeteKeeeteteeteteneeeereees 
1165 
1166 002424 013746 000004 MOV a4 ,-(SP) :SAVE LOC 4 
1167 002430 013746 000006 MOV a#6,-(SP) sSAVE LOC 6 
1168 002434 005037 000006 CLR a6 “CLEAR VEC+2 
1169 002440 005037 001252 CLR TEMPS “CLEAR FLAG 
1170 002444 005005 CLR R5 *R5=O=DMC, R5=-1=KMC 
| 1171 002446 011037 001404 AUSTRT: MOV (RO) ,DMCSR :GET NEXT DMC CSR 
1172 002452 001564 BEQ AUDONE :BR IF DONE 
1173 002454 005705 TST R5 “DMC OR KMC? 
1174 002456 001005 BNE i$ ‘BR IF KMC 
1175 2460 032760 100000 000002 BIT #B1T15,2(RO) =CHECK FOR DMC CSR 
1176 002466 001061 BNE SKIP :SKIP IF NOT DMC 
1177 002470 000404 BR 2$ :1TS A DMC SO CONTINUE 
1178 002472 032760 100000 000002 1%: BIT #B1T15,2¢RO) >CHECK FOR KMC CSR 
1179 002500 001454 BEQ SKIP >SKIP IF NOT KMC 
1180 002502 012737 002674 000004 2$: MOV @NODEV 084 ,SET UP FOR TIMEOUT 
1181 002510 005705 TST RS =DMC OR KMC? 
1182 002512 001003 BNE 3$ :BR IF KMC 


a a ee oe — 





] B 3 
CZ0MF MACY11 30A(1052) O08-JUL-80 08:26 PAGE 28 
014 | C2DMF P11 08-JUL-80 08:25 PROGRAM INITIALIZATION AND START UP. SEQ 0027 
| 
1183 002514 012703 000006 MOV #6,R3 ;R3 1S COUNT OF DEVICES BEFORE DMC 
| 1184 002520 00040 BR 4$ :G0 ON 
1185 002522 012703 000010 3$: MOV #10,R3 7R3 1S COUNT OF DEVICES BEFORE KMC 
| 1186 002526 012702 003010 4$: MOV #DEVTAB,R2 zR2 IS DEVICE TABLE PONTER 
1187 002532 012701 160910 MOV #160010,R1 START WITH ADDRESS 160010 
1188 002536 005711 FLOAT: TST (R1) ;CHECK ADDRESS IN R1 
1189 002540 111204 MOVB (R2),R4 ;1F NO TIMEOUT, GET NEXT ADDRESS 
1190 002542 060401 ADD R4,R1 sIN RI 
1191 002544 005201 INC R1 : 
1192 002546 040401 BIC R4,R1 : 
1193 002550 005703 TST R ANY MORE DEVICES TO CHECK FOR? 
1194 002552 001371 BNE FLOAT :BR IF YES 
1195 002554 012737 002700 0600004 MOV ERR, aas 70K ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT 
1196 002562 010137 003022 MOV k1,XLOC SAVE FIRST DMC/KMC ADDRESS 
1197 002566 005705 FY: TST R5 ;0MC OR KMC? 
1198 002570 001005 BNE 1$ sBR IF KMC 
1199 002572 032760 100000 000002 BIT #BIT15,2(RO) ;CHECK FOR DMC CSR 
1200 002600 001014 BNE SKIP ;SKIP IF NOT DMC 
1201 002602 000404 Bk 2$ 31TS A DMC SO CONTINUE 
| 1202 002604 032760 100000 000002 1$: BIT #B1T15,2(R0) sCHECK FOR KMC CSR 
1203 002612 001407 BEQ SKIP SKIP IF NOT KMC 
1204 002614 005711 23: TST (R1) ;CHECK DMC ADDRESS 
1205 002616 020137 001404 CMP R1,DMCSR :DOES IT MATCH 
1206 002622 001411 BEQ OK ;BR IF YES 
1207 002624 062701 000010 ADD #10,R1 ;GET NEXT DMC ADDRESS 
1208 002630 000756 BR FY 700 IT AGAIN 
1209 002632 62700 000010 SKIP: ADD #10,R0 :SKIP TO NEXT CSR IN TABLE 
1210 002636 011037 001404 MOV (RO) ,DMCSR GET NEXT CSR 
1211 00264 001470 BEQ AUDONE ;BR IF DONE 
1212 002644 000750 BR FY sELSE CONTINUE 
1213 002646 062700 000010 OK: ADD #10,R0 SKIP TO NEXT DMC CSR 
1214 002652 062737 000010 003022 ADD #10,XLOC ;UPDATE EXPECTED DMC/KMC. ADDRESS 
1215 002660 011037 001404 MOV (RO) ,DOMCSR ;GET NEXT DMC/KMC CSR 
1216 002664 001457 BEQ AUDONE :BR IF DONE 
1217 002666 013701 003022 MOV XLOC,R1 :GET EXPECTED DMC/KMC ADDRESS 
1218 002672 000735 BR FY s CONTINUE 
1219 002674 122243 NODEV: CMPB (R2)+,=(R3) ;ON TIMEOUT, INC R2, DEC R3 
1220 002676 000002 RTI RETURN 
1221 002700 005737 001252 ERR: TST TEMPS ;CHECK FLAG IF = 0 TYPE HEADER 
1222 002704 001014 BNE 1$ SKIP HEADER 
1223 002706 104402 TYPE ;TYPEOUT HEADER MESSAGE 
1224 002710 007224 CONERR ; CONFIGURATION ERROR!'!! 
1225 002712 012737 002700 001276 MOV ERR, SAVPC SAVE PC FOR TYPEOUT 
1226 002720 104411 CNVRT ; TYPE OUT ERROR PC 
1227 002722 002770 ERRPC : 
1228 002724 104402 TYPE ; TYPE REST OF HEADER 
1229 002726 007300 CNERR ; 
1230 002730 012737 177777 001252 MOV #-1,TEMP3 :;SET FLAG SO IT ONLY GETS TYPED ONCE 
1231 010137 001262 1$: MOV R1,SAVR1 ; SAVE R1 FOR TYPEOUT . 
1232 002742 104410 : CONVRT 
1233 002744 002776 CONTAB ; TYPE CSR VALUES 
1234 002746 005705 TST R5 ;DMC OR KMC ? 
1235 002750 001003 BNE 3% :BR IF KMC 
1236 002752 104402 TYPE 
Se 002754 007321 DMCM 


002756 000492 BR 43 ; CONTINUE 





CZ0MF MACY11 30A(1052) O8-JU 
0015 CZDMF P11 08-JUL-80 08:25 
1239 002760 104402 
1240 002762 007331 
1241 002764 022626 
12462 002766 000727 
1243 002770 000001 
1244 002772 006 002 
1245 002774 001276 
1246 002776 000002 
1247 003000 00 004 
1248 003002 003022 
1249 003004 006 002 
1250 003006 001404 
1251 003010 007 
1252 003011 017 
1253 003012 007 
1254 003013 007 
1255 003014 007 
1256 003015 007 
1257 003016 007 
1258 003017 007 
1259 003020 007 
1260 003022 
1261 003022 000000 
1262 003024 005705 
1263 003026 001005 
1264 003030 012705 177777 
1265 003034 012700 001500 
1266 003040 000602 
1267 3042 012637 000006 
1268 3046 012637 000004 
1269 003052 032737 000010 
1270 003060 001422 
1271 003062 104402 006145 
1272 3 005000 
1273 003070 000000 
1274 003072 027737 176104 
1275 003100 101404 
1276 003102 104402 006006 
1277 003106 000000 
1278 003110 000776 
1279 003112 017737 176064 
1280 003120 013700 001306 
1281 003124 0000 
1282 003126 0127C0 000300 
1283 003132 012701 000302 
1284 003136 010120 
1285 003140 005021 
1286 003142 022021 
1287 003144 022700 001000 
1288 003150 001372 
1289 
1290 
1291 
1292 
1293 003152 012706 001200 
1294 003156 013746 000006 


i-80 08:2 
Pp 


001236 


001312 


001306 


3$: 
4$: 
ERRPC: 


CONTAB: 


D 
DEVTAB: . 


EVEN 
XLOC: 
AUDONE : 


2$: 


3$: 
4$: 


6 PAGE 29 
ROGRAM INITIALIZATION AND START UP. 


TYPE 
KMCM 


C 


(SP)+,(SP)¢ 
OK 


6,2 


AUSTRT 
(SP)+,a#6 
(SP)+,ae#4 
#SWO3,STRTSW 
3$ 


RO 


@SWR,SAVACT 
28 

»MERRS 

.72 

@SWR DMACTV 
DMACTV,RO 
#300 ,RO 


(RO)+,(R1)+ 
#1000,R0 
4$ 


RESTART 


-BEGIN: 


MOV 
MOV 





#STACK SP 
a#6,-(SP) 


ADJUST STACK 


;BR TO GET OUT 


7 DMC? 


;BR IF KMC AND It 


SET R5 TO =1 


(KMC 


:RESET RO TO START OF TABLE 


G0 DO KMC'S 


sRESTORE LOC 6 


sRESTORE LOC 


4 


++ i SPECIFIC DEVICES?? 


78 
; TYPE THE MESSAGE. 
;ZERO DATA LIGHTS 


:WAIT FOR USER TO TELL WHAT DEVICES TO RUN 


:1S THE NUMBER VALID? 
:8R IF NUMBER IS 0 


:TELL USER OF 


:STOP EVERY TH 


K. 
tale NUMBER. 


G. 
;RESTART THE PROGRAM AGAIN. 
:GET NEW DEVICE PATTERN 


;SHOW THE USER WHAT HE SELECTED. 


:CONTINUE DYNAMIC SWITCHES. 


;PREPARE TO CLEAR THE FLOATING 


:VECTOR AREA. 300-776 
:START PUTTING ‘'PC+2 = HALT"' 
7 IN VECTOR AREA, 


;POP POINTERS 
:ALL DONE?? 
BR IF NO. 


SET UP STACK 
: SAVE LOC 6 


SEQ 0028 


0 3 





CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 30 
1016 CZDMF .P11 08-JUL-80 08:25 PROGRAM INITIALIZATION AND START UP. SEQ 0029 

1295 003162 013746 000004 MOV aes ,-(SP) :SAVE LOC 4 
1296 003166 005000 CLR RO “START AT 0 
1297 003170 012737 003234 000004 MOV #2$,aK4 :SET UP FOR TIME OUT 
1298 003176 005037 000006 CLR ase :TO AUTOSIZE MEMORY 
1299 003202 005720 6$: TST (RD)+ :CHECK ADDRESS IN RO 
1300 003204 022700 157776 CMP #157776,R0 -1$ IT AT LEAST 28K 
1301 003210 001374 BNE 6$ “BR IF NO 
1302 003212 162700 007776 SUB #7776,RO =SAVE 2K FOR MONITORS 
1303 003216 010037 001304 7$: MOV RO,MEMLIM ;STORE MEMORY LIMIT 
1304 003222 012637 000004 MOV (SP)+,a84 sRESTORE LOC 4 
1305 003226 012637 000006 MOV (SP)+,a#6 sRESTORE LOC 6 
1306 003232 000413 BR 10$ = CONTINUE 

1307 003234 022626 2$: CMP (SP)+,(SP)+ sADJUST STACK 

1308 003236 162700 000004 SUB #4,RO ;GET LAST GOOD ADDRESS 

1309 003242 162700 007776 SUB #7776,R0 “SAVE 2K FOR MONITORS 

| 1310 003246 022700 030000 CMP #30000,RO =1S [7 8K? 
1311 003252 001361 BNE 7$ :BR IF NO 
1312 003254 012700 037400 MOV #37400,R0 [IF 8K DON'T SAVE 2k 
1313 003260 000756 BR 7$ : 
1314 003262 012737 000340 177776 10$: MOV #340,PS sLOCK OUT INTERRUPTS 

| 1315 003270 032737 000004 0061236 BIT #BIT2,STRISW sCHECK FOR LOCK ON TEST 
1316 003276 001411 BEQ 1$ ;BR IF NO LOCK DESIREO. 
1317 003300 104402 006044 TYPE »MLOCK ; TYPE LOCK SELECTED. 
1318 003304 012737 000240 003612 MOV #NOP,,TTST “ADJUST SCOPE ROUTINE. 
1319 003312 012737 000240 003614 MOV #NOP,TTST+#2 sSET UP TO LOCK 
1320 003320 000406 BR 3$ ;CONTINUE ALONG. 
1321 003322 013737 003730 003612 1$: MOV BRW,TTST sPREPARE NORMAL SCOPE ROUTINE 
1322 003330 013737 003732 003614 MOV BRX,TTST+#2 s;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
1323 003336 012737 010206 001214 3$: MOV #CYCLE,RETURN :START AT "'CYCLE'’ FIND WHICH DEVICE TO TEST 
1324 003344 032737 000002 001236 4$: BIT #SWO1,STRISW ;1S TEST NO. SELECTED? 
1325 003352 001002 BNE 5$ ‘BR IF YES 
1326 003354 104402 005756 TYPE “MR “TYPE R 
1327 003360 000177 175630 5$: JMP @RE TURN sSTART TESTING 


0017 
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P11 


MACY11 30A(1052) 
08-JUL-80 08:25 


003364 


000005 


000005 
004711 


000001 


08-JUL-80 


08:26 PA 
END OF 


GE 31 
PASS ROUTINE 


END OF PASS 

:TYPE NAME OF TEST 
UPDATE PASS COUNT 

:CHECK FOR EXIT TO ACT-11 
;RESTART TEST 


EOP: RESET ;MAKE THE WORLD CLEAN AGAIN. 
001234 CLR LSTERR ;CLEAR LAST ERROR PC 
001325 CLRB ERRFLG ;CLEAR ERROR FLAG 
001230 INC PASCNT ;UPDATE PASS COUNT 
001230 175570 MOV PASCNT ,@DISPLAY ;DISPLAY PASS COUNT 
005733 TYPE »MEPASS ; TYPE END PASS 
006073 TYPE »MCSRX ; TYPE CSR 
003546 CNVRT »XCSR ;SHOW IT 
006101 TYPE »MVECX ; TYPE VECTOR 
003554 CNVRT »XVEC ;SHOW IT 
006107 TYPE »MPASSX ; TYPE PASSES 
003562 CNVRT »XPASS ;SHOW IT 
006120 TYPE ,»MERRX ; TYPE ERRORS 
003570 CNVRT ,XERR ;SHOW IT 
001322 MOV MILK,R ;GET POINTER TO PASS COUNT 
001230 MOV PASCNT,(RO)+ ;STORE PASS COUNT FORK THIS DMC11 
-001232 MOV ERRCNT,(RO)+ ;STORE ERROR COUNT FOR THIS DMC11 
001314 DEC SAVNUM ;ARE ALL DEVICES TESTED? 
BNE RESTRT ;BR IF NO. 
000377 001327 MOVB #377,QV.FLG 3SET THE QUICK VERIFY FLAG. 
001310 001314 MOV DMNUM , SAVNUM RESTORE THE COUNT 
000042 MOV a#42,R1 ;CHECK FOR ACT=-11 OR DDP 
BEQ RESTRT ;1F NOT, CONTINUE TESTING 
RESET ;STOP THE SHOW--CLEAR THE WORLD 
SENDAD: 
JSR PC, (R1) 
NOP 
NOP 
NOP 
NOP 
010206 001214 RESTRT: MOV #CYCLE ,RETURN 
010206 JMP CYCLE 
KCSR: 1 
002 -BYTE 6,2 
DMCSR 
XVEC: 1 
002 .BYTE 4,2 
DMRVEC 
XPASS: 1 
002 -BYTE 6,2 
PASCNI 
KERR: 1 
002 -BYTE 6,2 
ERRCNT 
;SCOPE LOOP AND INTERATION HANDLER 
007734 ~SCOPE: JSR PC, CKSWR sCKECK FOR SOFT SwR 
MOV RO, (SP) >SAVE RO ON THE STACK 


SEQ 0030 


018 


ro 





CZDMF —MACY11_ 30A(1052) QB-JUL-80 08: 
CZDMF.P11 = 08-JUL-80 08:25 

1384 003604 032777 040000 175370 

1385 003612 001407 

1386 003614 000437 

1387 003616 005737 003734 

1388 003622 001434 

1389 003624 005037 003734 

1390 003630 000415 

1391 003632 032777 004000 175342 

1392 003640 001011 

1393 003642 105737 001327 

1394 003646 001406 

1395 003650 005237 001224 

1396 003654 023737 001224 001222 

1397 003662 101414 

1398 003664 105037 001325 

1399 003670 005037 001224 

1400 003674 005037 001220 

1401 003700 012737 000020 001222 

1402 003706 013737 001216 001214 

1403 003714 011600 

1404 003716 022626 

1405 003720 013701 001404 

1406 003724 000177 175264 

1407 003730 001407 

1408 003732 000437 

1409 003734 000000 

1410 

1411 

1412 

1413 

1414 003736 004737 007734 _ 

1415 003742 032777 001000 175232 

1416 003750 001405 

1417 003752 005737 001220 

1418 003756 001402 

1419 003760 013716 001220 

1420 003764 000002 

1421 

1422 

1423 

1424 

1425 003766 010546 

1426 003770 017605 000002 

1427 003774 062766 000002 000002 

1428 004002 005737 010144 

1429 004006 001004 

1430 004010 032777 010000 175164 

1431 004016 001012 

1432 004020 105715 

1433 004022 100002 

1434 004024 104402 005672 

1435 006030 105777 175154 

1436 004034 100375 

1437 004036 112577 175150 

1438 004042 001357 

1439 004044 012605 
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TTST: 


es: 


3$: 


BRw: 
BRX: 
DONE : 


~SCOP1: 


TYPE: 


2$: 


3$: 


sTELETYPE OUTPUT ROUTINE 


PAGE 32 
GENERAL UTILITIES (TYPEOUT, 


#BIT14,aSwR 
1$ 

3$ 

DONE 

3$ 

DUNE 
#SW11,aSwWR 
2s 

QV.FLG 

2$ 


LPCNT 
LPCNT, 1COUNT 
3$ 


L 

#20, 1COUNT 
NEXT, RETURN 
(SP) ,RO 


DMCSR,R1 
@RETURN 


PC, CKSWR 
pecans 


LOCK 
1$ 
LOCK, (SP) 


R5,-(SP) 
a2(SP),R5 
#2,2(SP) 
SWFLG 


1$ 
#SW12,aSWR 
3% 


2$ 
(R5)+,aTPOBR 
4$ 

(SP)+,R5 


ERROR, SCOPE, ETC) 


"LOOP ON THIS TEST’? 

R IF_NO. (IF LOCK SwO1= \; THIS LOC =240 
GOTO 3$ (IF LOCK SwO1=1; THIS LOC =240 
WAS TKCSR DONE SET 
:BR IF NO n FLAG. ON TEST) 


; TES 
:DELETE ITERAY Tow (QUICK PASS) 


IF 
;HAVE PASSES + tia ee 
;BR IF QUICK P 
; UPDATE ITERATION’ COUNTER 
;ARE ALL ITERATIONS DONE ?? 
:BR IF NOT YET 
;PREPARE FOR NEW TEST 
;START ICOUNTER AT 0 


RESET ITERATIONS 

;GET NEXT TEST 

;POP RO OFF OF THE STACK 
sFAKE AN ‘'RTI"' 

7R1 CONTAINS BASE DM ADDRESS 
:60 DO THE TEST 


;CHECK FOR SOFT SWR 
71S SwO9=1(SET)? 
;BR IF NOT SET. 


;GOTO THE ADDRESS IN LOCK. 
BACK. 


>SAVE RS ON THE STACK. 
;GET ADDRESS OF MESSAGE. 

;POP OVER ADDRESS. 

sSOFT SWR MESSAGE? 

IF YES TYPE IT OUT REGARDLESS OF Swi2 
s INHIBIT ALL PRINT OUT?? 
“BR IF NO PRINT OUT WANTED (SW12=1) 
;1S NUMBER MINUS? \MSB=1(BIT7)) 
;BR IF NUMBER IS PLUS 

sTYPE A CR/LF! 

sTTY READY? 


;BR IF NO. 

PRINT CURRENT CHAR. 

:1F NOT ZERO KEEP PRINTING! 
END OF OUTPUT. RESTORE RS 


SEQ 0031 















NNN Nees shssennstieeesieee 


G 3 
CZDMF = MACY11 30A(1052) 08-JUL-80 08:26 PAGE 33 
5 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0032 


S 


0019 CZDMF P11 08-JUL-80 08:2 

ee 004046 000002 RTI G0 HOME 
1442 
1443 004050 010346 .INSTR: MOV R3,-(SP) SAVE R3 ON STACK 
1444 004052 010446 MOV R4,-(SP) SAVE R4& ON STACK 
1445 004054 017637 000004 004072 MOV Q4(SP), MSG 
1446 004062 062766 000002 000004 ADD #2,4(SP) 
1447 004070 104402 ~INST1: TYPE 
1448 004072 000000 -MSG: 0 
1449 004074 012704 007630 MOV #INBUF ,RG 
1450 004100 012703 000007 MOV #7,R3 
1451 004104 105777 175074 16: TSTB aTKCSR 

1452 004110 100375 BPL 1$ 

1453 004112 117714 175070 MOVB QaTKDBR,(R4) 

1454 004116 142714 000200 BICB #200, (R4) 
1455 0046122 122427 000015 CMPB (R4)+, 815 
1456 004126 001417 BEQ INSTR2 
1457 004130 105777 175054 2$: TSTB aTPCSR 
1458 004134 100375 BPL 2$ 
1459 004136 017777 175044 175046 MOV aTKDBR,aTPOBR 
1460 004144 005303 DEC R3 
1461 004146 001356 BNE 1$ 
1462 004150 012604 MOV (SP)+,R4 
1463 004152 012603 MOV (SP)+,R3 
1464 004154 104402 005666 .INSTE: TYPE ,MQM 
1465 004160 010346 MOV R3,-(SP) 
1466 004162 010446 MOV R4,-(SP) 
1467 004164 000741 BR INSTI 
1468 004166 012604 INSTR2: MOV (SP)+,R4 RESTORE RS 
1469 004170 012603 MOV (SP)+,R3 RESTORE R3 
Meee 004172 000002 RTI 
1472 CONVERT ASCII STRING TO OCTAL 
1473 g Petre meee een ee ence wc owcconn= 
1474 
1475 004174 010546 .PARAM: MOV RS ,-(SP) 
1476 004176 010446 MOV R4,-(SP) 
1477 004200 016605 000004 MOV 4(SP),R5 
1478 004204 012537 004364 MOV (R5)+,LOLIM 
1479 004210 012537 004366 MOV (R5)+,HILIM 
1480 004214 012537 004370 MOV (RS)+,DEVADR 
1481 004220 112537 004372 MOVB (R5)+,LOBITS 
1482 004224 112537 004373 MOVB (R5)+, ADRCNT 
1483 004230 010566 000004 MOV R5,4(SP) 
1484 004234 005005 PARAM1: CLR R5 
1485 004236 012704 007630 MOV #INBUF ,R4 
1486 004242 122714 000015 CMPB #15, (R4) 
1487 004246 001420 BEQ PARERR 
1488 004250 121427 000060 1$: CMPB (R4), #60 
1489 004254 002415 BLT PARERR 
1490 004256 121427 000067 CMPB (R4) , #67 
1491 004262 003012 BGT PARERR 
1492 004264 142714 000060 B!CB #60, (R4) 
1493 004270 152405 B1S8 (R4)+,R5 
1494 004272 122714 000015 CMPB #15, (R46) 
1495 004276 001406 BEQ LIMITS 
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MACY11 30A(1052) 
F.P11 08-JUL-80 08: 


004300 
004312 
004314 


004334 


004336 


004372 


004374 


004402 
06 


006305 


000750 


020537 


001365 


013704 


004366 
004364 
004372 


004370 


000002 
004373 


000004 


001272 
001270 
001266 
001264 
001262 
001260 


001260 


001272 


001276 


H 3 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


A ae 80 08:26 PAGE 34 


ASL R5 

ASL R5 

ASL R5 

BR 1$ 
PARERR: INSTER 

BR PARAM] 


TEST TO SEE IF NUMBER IS WITHIN LIMITS 


LIMITS: CMP R5,HILIM 
BHI PARERR 
CMP R5,LOLIM 
BLO PARERR 
BITB LOBITS,RS 


BNE PARERR 
:STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR,R4S 

1$ MOV R5,(R4)+ 
ADD #2,R5 
DECB ADRCNT 
BNE 1$ 
MOV (SP)+,R4 
MOV (SP)+,R5 
RTI 

LOLIM: QO 

HILIM: 0 

DEVADR: 0 


LOBITS: 0 
ADRCNT=LOBITS+1 


;SAVE PC OF TEST THAT FAILED AND RO-R5 


.SAVO5: MOV 4(SP),SAVPC sSAVE R7 (PC) 
sSAVE RO-R5S 

sv05: MOV RS,SAVR5 sSAVE RS 
MOV R4,SAVRS ;SAVE R4 
MOV R3,SAVR3 SAVE R3 
MOV R2,SAVR2 ;SAVE R2 
MOV R1,SAVR1 SAVE R1 
MOV RO, SAVRO s SAVE RO 
RT] sLEAVE. 
sRESTORE RO-R5S 

.RESOS: MOV SAVRO,RO sRESTORE RO 
MOV SAVR1,R1 sRESTORE R1 
MOV SAVR2,R2 RESTORE R2 
MOV SAVR3,R3 RESTORE R35 
MOV SAVR4,RG sRESTORE R4 
MOV SAVRS,RS sRESTORE R5 


SEQ 0033 


2 


MACY11 eo pe Q8-JUL-80 08:26 PAGE 35 
021 P14 08-JUL-80 08:25 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) . SEQ 0034 
004464 000002 RT] ; LEAVE 


;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


004466 104402 005672 ~CONVR: TYPE »MCRLF 
004472 010046 -CNVRT: MOV RO,-(SP) 
004474 010146 MOV R1,-(SP) 
004476 010346 MOV R3,-(SP) 
010446 MOV R4,-(SP) 
004502 010546 MOV R5,-(SP) 
004504 017601 090012 MOV a12(SP),R1 
| 004510 062766 000002 000012 ADD #2,12(SP) 
004516 012137 004710 MOV (Ri) +, WRDCNT 
004522 112137 004712 1$: MOVB (R1)+,CHRCNT 
004526 112137 004713 MOVB (R1)+.SPACNT 
004532 013137 004714 MOV a(R1)+,BINWRD 
0045 122737 000003 004712 CMPB #3, CHRCNT 
004544 001003 BNE 2$ 
004546 042737 177400 004714 BIC #177400, BINWRD 
004554 013704 004714 28: MOV BINWRD ,R4 
004560 113705 004712 MOVB CHRCNT,RS 
004564 012700 001416 MOV #TEMP,RO 
004570 010403 3$: MOV RG RB 
004572 042703 177770 BIC #177770,R3 
004576 062703 000060 ADD #060,R3 
004602 110320 MCVB R3,(RO)+ 
004604 000241 CLC 
004606 006004 ROR R4 
004610 000241 CLC 
004612 006004 ROR RS 
004614 000241 CLC 
004616 006004 ROR R4 
004620 005305 DEC RS 
004622 001362 BNE 3$ 
004624 012703 007672 MOV #MDATA,R3 
004630 114023 4$: MOVB -(RO),(R3)+ 
004632 105337 004712 DECB CHRCNT 
1 004636 001374 BNE 4$ 
1591 004640 105737 004713 TSTB SPACNT 
1592 004644 001405 BEQ 6$ 
15 004646 112723 000040 5$: MOVB #040,(R3)+ 
1594 004652 105337 004713 DECB SPACNT 
1595 004656 001373 BNE 5$ 
1596 004 105013 6$: CLRB (R3) 
1597 004662 104402 007672 TYPE ,MDATA 
1598 004 005337 004710 DEC WRDCNT 
1599 004672 001313 BNE 1$ 
1600 004674 012605 MOV (SP)+,R5 
1601 004676 012604 MOV (SP)+,R4 
1602 0047 012603 MOV (SP)+,R3 
1603 004702 012601 MOV (SP)+,R1 
1604 004704 012600 MOV (SP)+,RO 
1605 004706 000002 RTI 
1606 004710 000000 WRDCNT: 0 
1607 004712 000000 ; CHRCNT: 0 
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Z 
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004714 


004716 


005104 


004713 
000000 


011646 


000136 


004737 


Sooss 
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000002 
000000 


177001 


001330 
000000 


007734 
010000 


174220 


000207 
020000 


001234 


001234 
001325 


000002 


177001 


005216 


006143 
006131 
005330 
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36 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, 


SPACNT=CHRCNT #1 
BINWRD: 0 


ETC) 


; TRAP DISPATCH SERVICE 

;ARGUMENT OF TRAP IS EXTRACTED 

;AND USED AS OFFSET TO OBTAIN POINTER 
:TO SELECTED SUBROUTINE 


.’RPSR: MOV (SP) ,=(SP) ;GET <5 5 RETURN 
SUB #2, (SP) ;=PC OF TRAP 
MOV a(SP), (SP) :GET TRP 
TRPOK: ASL (SP) :MULTIPLY TRAP ARG BY 2 
BIC #177001, (SP) ;CLEAR UNWANTED BITS 
ADD #. TRPTAB, (SP) POINTER TO SUBROUTINE ADDRESS 
MOV a(SP), (SP) ; SUBROUTINE ADDRESS 
JMP a(SP)+ ;GO TO SUBROUTINE 


;ERROR HANDLER 


JSR PC, CKSWR sCHECK FOR SOFT SWR 
BIT #SW12,aSWR ‘BELL ON ERROR? 
BEQ XBX ‘BR IF NO BELL 
TSTB —s_ TPCSR ‘TTY READY. 
BPL XBX “DON'T WAIT IF TTY NOT READY. 
MOVB  #207,aTPDBR ‘PUSH A BELL AT THE TTY. 
XBX: BIT #SW13,aSwR ‘DELETE ERROR PRINT OUT? 
BNE HALTS ‘BR IF NO PRINT OUT WANTED. 
CMP (SP) ,LSTERR ‘WAS THIS ERROR FOUND LAST TIME? 
BEQ ‘BR IF YES 
MOV (SP) ,LSTERR [RECORD BEING HERE 
CLRB  —sC ERRFLG [PREPARE HEADER 
1$: SAVOS ‘SAVE ALL PROC REGISTERS 
MOV (SP) ,R5 ‘GET THE PC OF ERROR 
SUB #2,R5 :GET ADDRESS OF TRAP CALL 
MOV (R5) RG [GET HLT INSTRUCTION 
ASL R4 “MULT BY TWO 
ADD (R5), R4 :DOUBLE IT 


BIC #177001, RG 
ADD # ERRTAB,R4 


;MULT AGAIN 
;CLEAR JUNK 
;GET POINTER 


MOV (RG) + ERRMSG ;GET ERROR MESSAGE 
MOV (R4)+,DATAHD ;GET DATA HEADRER 
MOV (R4) ,DATABP ;GET DATA TABLE 
TSTB ERRFLG ;TYPE HEADREER 
BEQ TYPMSG BR IF YES 
TST DATABP ;DOES DATA TABLE EXIST? 
BNE TYPDAT BR IF YES. 

TYPMSG: TYPE »MCRLF 
TYPE -MCRLF 
TST LOCK 
BEQ 1$ 
TYPE /MASTEK 

1$ TYPE MISTN 


;SHOW IT 


SEQ 0035 


kK 3 
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CZDMF 





023 P11 08-JUL-80 08:25 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0036 
1664 005140 104402 006220 TYPE »MERRPC sTYPE PC. 
1665 005144 104411 005322 CNVRT »ERTABO ;SHOW IT 
1666 005150 104402 005672 TYPE »MCRLF sGIVE A CR/LF 
1667 005154 112737 177777 001325 MOVB #-1 ,ERRFLG ;NO MORE HEADER UNLESS NO DATA TABLE. 
1668 005162 005737 005172 TST ERRMSG 31S THERE AN ERROR MESSAGE? 
1669 005166 001402 BEQ WRKO.FM ‘BR IF NO. 
1670 005170 104402 TYPE ‘TYPE 
1671 005172 000000 ERRMSG: 0 ; ERROR MESSAGE 
| 1672 005174 WRKO.FM: : 
1673 005174 005737 005204 TST DATAHD sDATA HEADER? 
1674 005200 001402 BEQ TYPDAT :BR IF NO 
1675 005202 104402 TYPE s TYPE 
1676 005204 000000 DATAHD: 0 q DATA HEADER 
1677 005206 005737 005216 TYPDAT: TST DATABP ‘DATA TABLE? 
1678 005212 001402 BEQ RESREG :BR IF NO. 
1679 005214 104410 CONVRT : SHOW 
1680 005216 000000 DATABP: 0 : DATA TABLE 
1681 005220 104407 RESREG: RESOS sRESTORE PROC REGISTERS 
1682 005222 022737 003522 000042 wALTS: CMP #SENDAD ,a#42 :1F ACT=11 AUTOMATIC MODE, HALT!! 
1683 005230 001403 BEQ 1$ 
1684 005232 005777 173744 TST aswR HALT ON ERROR? 
1685 005236 100005 BPL EXITER :BR IF NO HALT ON ERKOR 
1686 005240 010046 1$: PUSHRO ;SAVE RO 
1687 005242 016600 000002 MOV 2(SP),RO :SHOW ERROR PC IN DATA LIGHTS 
1688 005246 000000 HALT ;HALT 
1689 005250 012600 POPRO 3;GET RO 
1690 005252 005237 001232 EXITER: INC ERRCNT UPDATE ERROR COUNT 
1691 tS Far 032777 000400 173716 BIT #SWO08,aSwR ;GOTO TOP OF TEST? 
| 1692 005264 001007 BNE 1$ :BR IF YES 
1693 005266 032777 002000 173706 BIT #SWi0,aSwR ;GOTO NEXT TEST? 
1694 005274 001411 BEQ ;BR IF NO 
1695 005276 013737 001216 001214 MOV NEXT, RETURN SET FOR NEXT TEST 
1696 005304 012706 001200 1$: MOV #STACK,SP RESET a 
1697 005310 013701 001404 MOV DMCSR,R1 ;SET UP 
} 1698 005314 000177 173674 JMP @RETURN ;GOTO meciV IED TEST 
1699 005320 000002 2$: RT] :RETURN 
1700 005322 000001 ERTABO: 1 
1701 005324 006 002 -BYTE 6,2 
| 1702 095326 001276 SAVPC 
1703 0053 000001 XTSTN: 1 
1704 005332 003 002 .BYTE 3,2 
1705 005334 001226 TSTNO 
1706 ENTER HERE ON POWER FAILURE 
| 1707 Joe e en eece nnn n renee neeeennn= 
1708 
1709 
1710 005336 .PFAIL: 
1711 005336 012737 005350 000024 MOV #RESTART,24 :SET UP FOR POWER UP TRAP 
1712 005344 000000 HALT sHALT ON POWER DOWN NORMAL 
Hat 005346 000777 BR 
La PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
6 
1717 005350 RESTAR: 
1718 005350 012737 005336 000024 MOV #.PFAIL,24 :SET UP FOR POWER FAILURE 
1719 005356 012706 001200 MOV #STACK,SP ;RESET THE STACK POINTER 
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DMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 38 
024 DMF.P11 = 08=JUL-80 08:25 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0037 
| 1720 005362 013701 001404 MOV DMCSR,R1 ;RESTORE R1 
1721 005366 005037 001416 CLR TEMP sREADY FOR TIMMER 
1722 005372 005237 001416 INC TEMP sPLUS ONE TO THE TIMER! 
1723 005376 001375 BNE 74 :BR IF MORE TO GO 
1726 005400 104402 005675 TYPE /MPFAIL :TYPE THE MESSAGE 
1725 005404 104411 005430 CNVRT ,PFTAB :TELL WHAT TEST TO RETURN TO. 
1726 005410 105037 001325 CLRB ERRFLG :START CLEA 
| 1727 005414 005037 001234 CLR LSTERR eee 
1728 005420 005011 CLR (R1) :CLEAR MAINT BITS 
1729 005422 104412 MSTCLR :START CLEAN UP OF DEVICE 
1730 005424 000177 173564 JMP @RETURN :START DOING THAT TEST AGAIN. 
1731 005430 000001 FETAB: 1 
1732 005432 003 002 .BYTE 3,2 
733 005434 001226 TSTNO 
1735 005436 .DELAY: 
1736 005436 012777 000020 173746 MOV #20, aDMP04 
| 1737 005444 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1738 005446 121111 121111 :POKE CLOCK DELAY BIT 
1739 005450 1$: 
1740 005450 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1741 005452 121224 121224 :PORT4 IBUS*11 
1742 005454 032777 000020 173730 BIT #B1T4,aDMPO4 :1S CLOCK BIT SET? 
1743 005462 001772 BEQ 1$ :BR IF NO 
ae 005464 000002 RTI 
| 
| 1746 005466 -MSTCLR: 
1747 005466 152777 000100 173712 BISB #B1T6,@DMCSRH  ;SET MASTER CLEAR 
1748 005474 142777 000300 173704 BICB #BIT6'BIT7,@DMCSRH ;CLEAR MASTER CLEAR AND RUN 
re? 005502 000002 RTI : RN 
1751 005504 -ROMCLK: 
1752 005504 152777 000002 173674 BISB #BIT1,@DMCSRH  ;SET ROMI 
1753 005512 013677 173676 MOV a(SP)+,@DMP06  ;LOAD INSTRUCTION IN SEL6 
1754 005516 062746 000002 ADD #2,-(SP) sADJUST STACK 
1755 005522 032777 000100 173452 BIT #SW06,aSWR sHALT IF SWO6 =1 
1756 005530 001401 BEQ 1$ :BR IF Sw06 =0 
| 1757 005532 000000 HALT “HALT BEFORE CLOCKING INSTRUCTION 
| 1758 005534 152777 000003 173644 1$: BISB #BIT1'BITO,@DMCSRH ;CLOCK INSTRUCTION 
1759 005542 142777 000007 173636 BICB #BIT2'BIT1'BITO,aDMCSRH ;CLEAR ROMO, ROMI, STEP 
1760 005550 RTI 
1761 
1762 005552 .DATACLK: 
1763 005552 013637 001416 MOV a(sP)+, TEMP :PUT TICK COUNT IN TEMP 
1764 005556 062746 000002 ADD #2,-(SP) sADJUST STACK 
1765 005562 13077 000020 173616 1$: BISB #BIT4,aDMCSRH ;SET STEP LU 
1766 005570 027777 173610 173606 CMP @DMCSR,@DMCSR ;WASTE TIME 
1767 005576 142777 000020 173602 BICB #BIT4,@DMCSRH ;CLEAR STEP LU 
| 1768 005604 005337 001416 DEC TEMP :DEC TICK COUNT 
1769 005610 001364 BNE 1$ :BR IF NOT DONE 
| 1770 005612 02 RTI > RETURN 
1771 005614 3$: .BLKW 1 
172 
1773 005616 . TIMER: 
1774 005616 013637 001416 MOV a(sSP)+, TEMP :MOVE COUNT TO TEMP 
1775 005622 062746 000002 ADD #2,-(SP) sADJUST STACK 
| 
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DMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 39 
0025 DMF .P11 08-JUL-80 08:25 GENERAL UTILITIES (,YPEOUT, ERROR, SCOPE, ETC) SEQ 0038 
1776 005626 1$: 
1777 005626 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1778 005630 021364 021364 ;PORT4 IBUS* REG11 
1779 005632 032777 000002 173552 BIT #2,aDMPO4 :1S PGMA CLOCK BIT CLEAR? 
1780 005640 001772 BEQ 1$ :BR IF YES 
1781 005642 2$: 
1782 005642 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1783 005644 021364 021364 :PORT4 IBUS* REG11 
1784 005646 032777 000002 173536 BIT #2, aDMPO4 :1S PGA CLOCK BIT SET? 
1785 005654 001372 BNE 2$ :BR IF YES 
1786 005656 005337 001416 DEC TEMP ;DEC COUNT 
1787 005662 001361 BNE 1$ :BR IF NOT DONE 
A 005664 000002 RT] RETURN 
1790 005666 020040 000077 MOM: ASCIZ 7/ 
(2) 005672 005015 000 MCRLF: .ASCIZ <15><12> 
(2) 005675 377 053520 020122 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 
(2) 005733 377 047105 020104 MEPASS: .ASCIZ <377>/END PASS CZDMFC / 
(2) 005756 051377 000 MR: eASCIZ = <377>/R/ 
(2) 005761 377 047516 042060 MERR2: .ASCIZ <377>/NO DEVICES PRESENT./ 
(2) 006006 0%4777 051516 043125 MERR3: .ASCIZ <377>/INSUFFICIENT DATA! / 
(2) 006032 (52377 505 020124 MTSTPC: .ASCIZ <377>/TEST PC-/ 
(2) 4 v66377 041517 020113 MLOCK ASCIZ <377>/LOCK ON SELECTED TEST/ 
(2) 006073 103 051123 020072 MCSRX ASCIZ /CSR: / 
(2) 006101 126 505 020072 MVECX ASCIZ /VEC: / 
(2) 006107 20 051501 042523 MPASSX: .ASCIZ /PASSES: / 
(2) 006120 051105 047522 051522 MERRX: .ASCIZ /ERRORS: / 
(2) 006131 124 951505 020124 MTSTN: .ASCIZ /1EST NO: / 
(2) 006143 052 000 MASTEK: .ASCIZ /*/ 
(2) 006145 377 042523 020124 MNEW:  .ASCIZ <377>/SET SWITCH REG TO DMC11°S DESIRED ACTIVE./ 
(2) 006220 041520 020072 000 MERRPC: .ASCIZ /PC: / 
(2) 006225 12 020040 020040 XHEAD ASCII <212>/ MAP OF DMC11 STATUS/ 
(2) 006264 020377 020040 020040 ASCII] <377>/ —«—_—_—_—_ erwwwwwnoceeeessee= / 
(2) 006323 020040 041520 ASCII <212>/ PC CSR STATI STAT2 STAT3/ 
(2) 006375 377 026455 026455 ASCIZ 3 <377>/eeeen- eeeenre weer seeeee seen / 
(2) 006451 377 047510 020127 NUM: .ASCIZ <377>/HOW MANY DMC11'S TO BE TESTED?/ 
(2) 006511 377 051503 020122 CSR: .ASCIZ <377>/CSR ADDRESS?/ 
(2) 006527 377 042526 052103 VEC: «ASCIZ <377>/VECTOR ADDRESS?/ 
(2) 006550 041377 020122 051120 PRIO: .ASCIZ <377>/BR PRIORITY LEVEL? (4,5,6,7)?/ é 
(2) 006697 377, 043111 042040 CRAM:  .ASCIZ <377>/I1F DMC HAS CRAM (M8204) TYPE ‘‘Y'', IF CROM (M8200) TYPE ‘'N’’ ?/ 
(2) 006705 377 044127 041511 MODU:  .ASCIZ <377>/WHICH LINE UNIT? IF NONE TYPE ‘'N’’, IF M8201 TYPE ‘I'', IF M8202 TYP 
(2) 007017 377, 053523 052111 LINE: .ASCIZ <377>/SWITCH PAC#1 (DDCMP LINE #)?/ 
(2) 007055 377 053523 052111 : sASCIZ <377>/SWITCH PAC#2 (BM873 BOOT ADD) ?/ 
(2) 007115 377. 051511 052040 CONN: .ASCIZ <377>/1S THE LOOP BACK CONNECTOR ON?/ 
(2) 007155 377 047516 0420460 NOACT: .ASCIZ <377>/NO DEVICES ARE SELECTED/ 
(2) 72 005377 053523 036522 SWMES: .ASCIZ <377><12>/SwWR= / 
(2) 007216 042516 037527 000040 SWMES1: .ASCIZ /NEW? 
(2) 007224 177777 046504 030503 CONERR: .ASCIZ <377><377>/DMC11 FOUND AT NON-STANDARD ADDRESS PC: / 
(2) 7300 042777 050130 041505 CNERR: .ASCIZ <377>/EXPECTED FOUND/ 
(2) 007321 040 042050 041515 DMCM: .ASCIZ / (DMC) / 
(2) 007331 040 045450 041515 KMCM:  .ASCIZ /_(KMC) / ony 
(2) 7341 377 046504 030503 SPEED: .ASCIZ <377>/DMC11-AR(REMOTE,LOW SPEED) OR DMC11-AL(LOCAL,HIGH SPEED) TYPE ‘'R 
(2) 007455 200 044127 041511 Mmv35 "ASCII <200>/WHICH MODEM TYPE, TYPE ‘“D'' FOR DMC11-DA (RS2$2C) .OR/ 
(2) 007541 200 054524 042520 LASCIZ <200>/TYPE ‘'F’’ FOR DMCII-FA (v.35) ? / 
< 
(2) EVEN 





0026 


| 
ee... | 





P11 


007602 


007626 


007530 
007672 


ss 


SSSsss 
NSonar 


Fes 


a et at ot ot ot od o-oo 4 
$3858 
NS Ab ap 
MO &O 


SrNo 


oocooooooocococesss& 
sss 


Oo 
— 


MACY11 oh 
08-JUL-80 08 


va? 
ae” 
001250 
001252 
001254 

006 
001256 


000000 
007672 
000000 
007734 


022737 


aoe JUL-80 08:26 PAGE 


003 
003 
003 
003 
002 


000176 
171234 


177777 
000007 


000207 


177777 
177777 
007206 


007216 
010146 
000015 
000012 
000025 


000007 


177770 


001202 


003734 
171220 


171210 


010144 


N 3 


40 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


XSTATQ: 


-°VEN 


INBUF : 
=.+40 


MDATA: 
.=.+40 


CKSWR: 


CKSWR1: 


CKSWR2: 


CKSWR3: 
CKSWRE: 


5 

BYTE 6,3 
TEMP 1 

BYTE 6,3 
TEMP? 

BYTE 6,3 
TEMPS 

BYTE 6,5 
TEMPS 

BYTE 6,2 
TEMP5 


;BUFFERS FOR INPUT-OUTPUT 


;ROUTINE USED TO CHANGE SOFTWARE SWITCH 
REGISTER USING THE CONSOLE TERMINAL 


CMP #SWREG,SWR hs ee _* SWR BEING USED? 


BNE CKSWRS 
TSTB aTKCSR :1S DONE SET? 
BPL 2$ :GO ON IF NOT SET 


: IF DONE SET, SET 


MOV #-1 ,DONE FLAG 
WAS CTRL G TYPED? (7 BIT ASCII) 


CMP #7 ,aTKDBR 


BEQ 1$ ;BR IF YES 

CMP #207 ,aTKDBR sWAS CTRL G TYPED? (8 BIT ASCII) 
BNE CKSWRS ;BR IF NO 

MOV R2,-(SP) STORE R2 

MOV R3,-(SP) sSTORE R3 

MOV R4,-(SP) STORE R4 


MOV at, SWFLG ‘SET SOFT TYPE OUT FLAG 
CLR ‘CLEAR NEW SWR CONTENTS 
MOV De R4 SET FLAG TO, ALL ONES 

W 


TYPE , SWMES : TYPE 

CNVRT [TYPE OUT PRESENT CONTENTS 

SOF TSW :0F SOFT SWITCH REGISTER 

TYPE SWMES1 STYPE "NEW 

JSR PC INCHAR GET ws ebcest 

CMP #i5.R ‘WAS IT A CR? 

BEQ 5$ “BR IF YES 

CMP #12,R3 ‘WAS IT A LF? 

BEQ 4$ ‘BR IF YES 

CMP #25,R3 ‘WAS IT CTRL U? 

BEQ CKSWRI “BR IF YES(START OVER) 

CMP #7,R3 SIF CNTL G GET NEXT CHAR 

BEQ CK SWR4 

CLR RG :1T MUST BE A DIGIT SO CLR FLAG 
BIC #177770,R3 “ONLY O=7 ARE LEGAL SO MASK OFF BITS 
ASL R2 “SHIFT R2 3 TIMES 


SEQ 0039 


0027 


| 
| 
| 
| 
j 
| 
| 
| 
' 
| 
| 
| 
| 
j 
} 
| 
| 
i 
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CZOMF P11 


MmMrn— asRnu 
FroOvoem Fro 


30 


1857 010140 
1858 010142 


i a a a od od ot 2 


Eo ie 


042703 
000207 


000001 
006 
000176 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


08-JUL-80 08:25 


002002 000006 


171032 


171026 
171024 


171020 
000200 


002 


4$: 


6$: 


CKSWRS: 


SWFLG: 
INCHAR: 


SOF TSW: 


(SP)+,R2 
PC 


QTKCSR 
=4 


ATKDBR,R3 
aTPCSR 
i 
R3,aTPDBR 
#BIT7.R3 
PC 


;ADD LAST DIGIT 
;GET NEXT CHARACTER 

;LF WAS TYPED SO GO TO START 
71S FLAG CLEAR? 
;1F NOT DON'T CHANGE SOFT SwR 

: IF YES THEN WRITE NEW CONTENTS TO SOFT SwR 
;CLEAR TYPEOUT FLAG 

sRESTORE R4 
sRESTORF R3 
sRESTORE R2 


SEQ 0040 


0028 





CZDMF = MACY11 30A(1052) O8-JUL-80 08: 
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1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 010206 005737 001306 
1884 010212 001004 
1885 010214 1044602 007155 
1886 010220 000000 
1887 010222 000776 
1888 010224 000241 
889 010226 006137 001316 
1890 010232 005537 001316 
1891 010236 062737 000004 001322 
1892 010244 062737 000010 001320 
1893 010252 022737 001700 001320 
1894 010260 001006 
1895 010262 012737 001500 001320 
1896 010270 012737 001702 001322 
1897 010276 033737 001316 001306 
1898 010304 001747 
1899 010306 013700 001320 
1900 010312 013702 001322 
1901 010316 012037 001404 
1902 010322 011037 001374 
1903 010326 042737 177000 001374 
1904 010334 012037 001366 
1905 010340 012037 001370 
1906 010344 012037 001372 
1907 010350 012237 001230 
1908 010354 012237 001232 
1909 010360 012700 000002 
1910 010364 013737 001404 001406 
1911 010372 005237 001406 
1912 010376 013737 001406 001410 
1913 010404 005237 001410 
1914 010410 013737 001410 001412 
1915 010416 060037 001412 
1916 010422 013737 001412 001414 
oe 010430 060037 001414 
1919 010434 013737 001374 001376 
1920 010442 060037 001376 
1921 010446 013737 001376 001400 
1922 010454 060037 001400 
1923 910460 013737 001400 001402 
aS¢ 010466 060037 001402 
1926 010472 032737 000002 001236 
1927 010500 001450 
1928 010502 
1929 010502 005737 000042 


—— 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


:ROUTINE USED TO "‘CYCLE’ 


" THROUGH UP TO 16 DMC11'°S 


:THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 


;AND RUNS THE SPECIFIED DMC11'S. 


THIS ROUTINE *MUST®* 


;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 


; SETUP NECESSARY. 


CYCLE: TST DMACTV 
BNE 1$ 
TYPE /NOACT 
HALT 
BR -2 
1$ CLC 
ROL RUN 
ADC RUN 
ADD #4, MILK 
ADD #10, CREAM 
CMP #DM.MAP+200, CREA 
BNE 2$ 
MOV #DM.MAP, CREAM 
MOV #CNT MAP, MILK 
2$: BIT RUN, DMACTV 
BEQ 1$ 
MOV CREAM, RO 
MOV MILK,R2 
MOV (RO)+,DMCSR 
MOV (RO) ,DMRVEC 
BIC #177600, DMRVEC 
MOV (RO)+,STATI 
MOV (RO)+,STAT2 
MOV (RO)+,STAT3 
MOV (R2)+,PASCNT 
MOV (R2)+,ERRCNT 
MOV #2,R0 
MOV DMCSR,DMCSRH 
INC DMCSRH 
MOV DMCSRH,DMCTL 
INC DMCTL 


MOV OMCTL ,OMPO4 
ADD RO ,DMPO4 
MOV DMPO4 , DMP06 
ADD RO ,DMP06 


MOV DMRVEC ,DMRLVL 
ADD RO,DMARLVL 
MOV DMRLVL ,DATVEC 
ADD RO, DATVEC 
MOV DMTVEC ,DMTLVL 


ADD RO,DMTLVL 
BIT #SWO1,STRTSW 
7$ 


4$: 
TST a#42 





sARE ANY DMC11'S TO BE TESTED? 
;BR IF OK 


;NO DMC11'S SELECTED!! 
STOP THE SHOW. 
s;DISQUALIFY CONT. Sw. 
;CLEAR PROC. CARRY BIT. 
; UPDATE POINTER 

CATCH CARRY FROM RUN 
;UPDATE POINTER 

;UPDATE ADDRESS POINTER. 


KEEP GOING; NOT ALL TESTED FOR. 
;RESET ADDRESS POINTER. 

sRESET PASS COUNT POINTER 

i1S at ee ACTIVE? 

; N 


;BR | 

;GET ADDRESS POINTER 
:GET PASS COUNT POINTER 
LOAD SYSTEM CTRL. REG 
LOAD VECTOR 

:CLEAR UNWANTED BITS 
;LOAD STATI 

sLOAD STAT2 

;LOAD STATS 

;LOAD PASS COUNT 

;LOAD ERROR COUNT 
sSAVE CORE THIS WAY! 


:PTY LVL 
TX VEC 
“TX LVL 


:1S TEST NO. SELECTED 
;BR IF NO 


;RUNNING IN AUTO MODE? 


SEQ 0041 


1029 





CZDMF 


MACY11 he 


CZDMF .P11 08-JUL-80 0 
1930 010506 001045 
1931 010510 104402 005672 
1932 010514 10440 
1933 010516 006131 
1934 010520 104405 
1935 010522 000001 
1936 010524 001000 
1937 010526 001226 
1938 010530 000 
1939 010531 001 
1940 010532 012700 012526 
1941 010536 022710 
1942 010540 012737 
1943 010542 001020 
1944 010544 023760 001226 
1945 010552 001014 
1946 010554 022760 001226 
1947 010562 001010 
1948 010564 010037 001214 
1949 010570 104402 005756 
1950 010574 042737 000002 
1951 010602 000412 
1952 010604 005720 
1953 010606 020027 031762 
1954 010612 001351 
1955 010614 104402 005666 
be 010620 000730 
1958 010622 012737 012526 
1959 010630 013701 001404 
1960 010634 000177 170354 
961 
1 762 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 010640 
1972 010640 000005 
1973 010642 012702 001500 
1974 010646 005022 
1975 010650 022702 001700 
1976 010654 001374 
1977 010656 005037 001310 
1978 010662 012702 001500 
1979 010666 005037 001306 
1980 010672 032737 000001 
1981 010700 001002 
1982 010702 000137 011460 
1983 010706 012737 000001 
1984 010714 104403 
1985 010716 006451 


000002 
000004 


001236 


001214 


001236 


001256 


_—- 08:26 PAGE 4 
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e) 
GENERAL UTILITIES (TYPEOUT, 


-BYTE 
-BYTE 


c¢; 


6$: 


7$: 
8$: 


#TST1,R0 
(PC) +, (RO) 
(PC)+,a(PC)+ 
6$ 
acelin 
#TSTNO,4(RO) 
6$ 

RO,RETURN 
MR 
#SWO1,STRTSW 
8$ 


(RO) + 
RO, #TLAST+10 
5$ 


, MQM 
4$ 
#TST1,RETURN 


DMCSR,R1 
@RETURN 


ERROR, SCOPE, ETC) 
;BR IF YES 
;GET TEST NO. 


:CMP FIRST WORD TO 12737 


;BR IF NOT SAME 
;DOES Ay MATCH? 


;BR IF 

:1S LAST WORD OK? 

:BR IF NO 

;1T 1S A LEGAL TEST SO DO IT 


;POP RO 

sAT END YET? 
;BR IF NO 

:YES ILLEGAL TEST NO. 
; TRY AGAIN 


;PREPARE RETURN ADDRESS 
;R1 = BASE DMC11 ADDRESS 
3GO START TESTING. 


;ROUTINE USED TO ‘‘AUTO SIZE*’ THE DMC11 
;CSR AND VECTOR 


;NOTE: 


. 
. 


AUTO.SIZE: 
ET 


CSRMAP: 
1$: 


THE CSR MAY BE 


ANY WHERE IN THE FLOATING 


ADDRESS RANGE (160000: 164000) 


AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 


#O0M.MAP,R2 
(R2)+ 
#OM.END,R2 
1$ 

DMNUM 
#OM.MAP,R2 
DMACTV 

nd ettabtaaes 
.¢ 


7$ 
#1, TEMPS 


; INSURE A BUS INIT. 
;LOAD MAP POINTER. 
;ZERO ENTIRE MAP 
:ALL DONE? 
:BR_IF NO 
;SET OCTAL NUMBER ed Baal § 10 0 
:R2 POINTS TO DMC M 


CLEAR ACTIVE 
QUESTIONS? 
;BR IF 


START WITH 


YES 
;1F NO SKIP  eeheiceanen 


SEQ 0042 


—E 4 
CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 4 
CZDMF P11 08-JUL-80 08:25 GENERAL uTiuities (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0043 
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1986 010720 104405 PARAM 
1987 010722 000001 1 
1988 010724 000020 1 
1989 010726 001252 TEMP3 
1990 010730 000 -BYTE 0O 
1991 010731 001 .BYTE 1 
1992 010732 013737 001252 001310 MOV TEMP3,DMNUM :DMNUM = HOW MANY 
1993 010740 104402 005672 12%: TYPE »MCRLF 
1994 010744 104410 CONVRT sTYPE WHICH DMC IS BEING DONE 
1995 010746 012210 WHIC4 ; TEMPS IS WHICH DMC 
1996 010750 005237 001256 INC TEMPS 
1997 010754 104403 INSTR 
1998 010756 006511 CSR 
1999 010760 104405 PARAM 
2000 010762 160000 160000 
2001 010764 164000 164000 
2002 010766 001254 TEMPS 
2003 010770 000 -BYTE 0 
2004 010771 001 -BYTE 1 
2005 010772 013722 001254 MOV TEMP4,(R2)+ sSTORE CSR IN MAP 
2006 010776 104403 INSTR 
2007 011000 006527 VEC 
2008 011002 104405 PARAM 
2009 011004 000000 
2010 011006 000776 77 
2011 011010 001254 TEMPS 
2012 011012 000 .BYTE 0 
2013 011013 001 .BYTE 1 
2014 011014 013712 001254 MOV TEMPS, (R2) :STORE VECTOR IN MAP 
2015 011020 104402 108: TYPE 
2016 011022 006550 PRIO sASK WHAT BR LEVEL 
2017 011024 004737 012474 JSR PC, INTTY GET RESPONSE 
2018 011030 022703 000024 CMP #24,R3 : 
2019 011934 101014 BHI 50$ ;BR IF LESS THAN 4 
2020 011036 022703 000027 CMP #27,R3 ; 
2021 011042 103411 BLO 50$ :BR IF GREATER THAN 7 
2022 011044 012704 000011 MOV #11,R4 :R4 = NUMBER OF SHIFTS 
2023 011050 006303 ASL R3 SHIFT R3 LEFT 
2024 011052 005304 DEC R4 :DEC SHIFT COUNT 
2025 011054 001275 BNE 74 ;BR IF NOT DONE 
2026 011056 042703 170777 BIC #170777,R3 :BIC UNWANTED BITS 
2027 011062 050312 BIS R3,(R2) :PUT BR LEVEL IN STATUS MAP 
2028 011064 000403 Be 8$ : CONTINUE 
2029 011066 104402 50$: TYPE 
2030 011070 005666 MOM ;RESPONSE IS OUT OF LIMITS 
2031 011072 000752 BR 10$ TRY AGAIN 
2032 011074 104402 8$: TYPE 
2033 011076 006607 CRAM DOES DMC HAVE CRAM? 
2034 011100 004737 012474 JSR PC, INTTY GET REPLY 
2035 011104 022703 000131 CMP #131,R3 
2036 011110 001427 BEQ 9% sYES 
2037 011112 022703 000116 CMP #116,R3 :NO 
2038 011116 001403 BEQ 40% :NOT A Y OR N 
2039 011120 104402 TYPE 
2040 011122 005666 MQM TYPE “*?* 
2041 011124 000763 BR 8% ;ASK AGAIN 
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104402 


052712 


104402 


001027 


104402 


001004 


042762 
000411 


122703 
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012474 
000122 


000114 


000002 
100000 


012474 
000021 


000022 
000116 


010000 
020000 
012474 


000131 
000116 


040000 
020000 


012474 
000104 


000004 


000106 


000004 


177776 


000002 


F 


45 
GENERAL UTILITIES (TYPEOUT, 


40$: 


41$: 


9$: 
16$: 


328: 


31$: 
30$: 


17$: 


440$: 


442%: 


40$ 
#BIT1,4(R2) 
16$ 
#B1T15,(R2) 


PC, INTTY 
#21,R3 


30$ 
#22,R3 
31$ 
#116,R3 
32$ 


BIT12,(R2)+ 
R2)+, (R2)* 
#8 


33$ 
1113, (R2) 


1 
i 
( 


PC, INTTY 
ist, R3 


17% 
#116,R3 
18$ 


2)+ 
( 


R2) 


ERROR, SCOPE, ETC) 


T RESPON 


; TRY AGAIN 

[SET BIT] IN STAT3 
; CONTINUE 

[SET BIT 15 IF CRAM 


sASK WHICH LINE UNIT 
efi, REPLY 


:"'N' 


IF NOT A 1,2 OR N TYPE ‘'?"' 
;TRY AGIAN 

;SET BIT 12 IN STAT2 IF NO LU 
;POP OVER STAT2 AND STAT3 


;SET BIT 13 IN STAT2 IF M8202 


sASK IF LOOP-BACK IS ON 
:GET REPLY 


iN 


IF NOT Y OR N TYPE °'?"' 
TRY AGAIN 

: TURNAROUND IS CONNECTED 
> M8202? 


; ASK QUESTION 
; ABOUT MODEM TTYPE 


; GET ANSWER. 
>; IS IT DMC11-DA? 
; NO. 


>; YES INDICATE IT IN STATS 


31S 1T A DMCTI“FA (V.35)? 


SEQ 0044 


0032 





CZDMF MACY11._ 30A(1052) 

CZDMF.P11 08=JUL-80 08:2 
2098 011350 001403 
099 
2100 011352 104402 
2101 011354 005666 
2102 011356 000757 
2104 011360 052762 000004 
2105 
2106 011366 
2107 011366 000402 
2108 011370 042722 040000 
2109 011374 
2110 011374 104403 
2111 011376 007017 
2112 011400 104405 
2113 011402 000000 
2114 011404 000377 
2115 011406 001254 
2116 011410 000 
2117 011411 001 
2118 011412 113722 001254 
2119 011416 104403 
2120 011420 007055 
2121 011422 104405 
2122 011424 000000 
2123 011426 000377 
2124 011430 001254 
2125 011432 ~~ 000 
2126 011433 001 
2127 011434 113722 001254 
2128 011440 005722 
2129 011442 005337 001252 
2130 011446 001402 
2131 011450 000137 010740 
2132 011454 000137 012110 
2133 011460 12701 160000 
2134 011464 012737 012202 
2135 011472 005011 
2136 011474 005711 
2137 011476 001172 
2138 011500 005061 000006 
2139 011504 005761 000006 
2140 011510 001165 
2141 011512 012711 002000 
2142 011516 005061 000004 
2143 011522 012761 125252 
2144 011530 052711 020000 
2145 011534 022761 125252 
2146 011542 001004 
2147 011544 052762 100000 
2148 011552 000431 
2149 011554 012711 001000 
2150 011560 012761 100430 
2151 011566 012711 001400 
2152 011572 012711 002000 
2153 011576 022761 016472 


7 ne 08: 


000002 


000004 


000006 
000004 
000002 


000006 


000006 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


BEQ 

TYPE 

MQM 

BR 
443$: BIS 
441$: 


188: BIC 
19§: 


33$: DEC 
34$: JMP 
7$: MOV 
2$: CLR 


21$: MOV 


443$ 


440% 
WBIT2,2(R2) 


19$ 
WBIT14,(R2)+ 


1 
TEMPG,(R2) + 


0 


] 
TEMPG, (R2) + 
(R2)+ 


#6$ 084 


> YES@TAKE CARE OF IT. 

; NO ASK OPERATER WHATS GOING ON. 
; REASK QUESTION 

; YES V.35, RECORD IN STAT3 

; END DECISION POINT. 

NO TURNAROUND 


;STORE SWITCH PAC IN MAP 


STORE SWITCH PAC IN MAP 

;POP OVER STAT3 

;DEC DMC COUNT 

;BR IF DONE 

; JUMP IF NOT 

; CONTINUE 

;SET FOR FIRST ADDRESS TO BE TESTED 
:SET FOR NON-EXISTANT DEVICE TIME OUT 
sCLEAR SELO 

7 IF DMC11 DMCSR S/B 0 

;1F NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO DM(C11 
sCLEAR SEL6 

3 IF OMC11 THEN DMRIC S/B =0! 

;BR IF NOT DMC11 

:SET ROMO 

sCLEAR SEL4 

sWRITE THIS TO SEL6 

sWRITE IT! 

sWAS IT WRITTEN? 

:1F NO IT IS NOT CRAM 

;SET BIT15 IF CRAM 


;SET ROMI 
:PUT INSTRUCTION IN S 
CLOCK INSTRUCTION (M 
;SET ROM 


: Om0 
:1S IT LOCAL CROM? 


EL6 
ICRO PROC PC 10 0) 


SEQ 0045 
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47 
1033 11 08-JUL-8 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0046 

2154 011604 001411 BEQ 23$ :BR IF YES 
2155 011606 022761 016461 000006 CMP #016461,6(R1)  :1S IT REMOTE CROM? 
2156 011614 001410 BEQ $ <BR IF YES 
2157 011616 022761 177777 000006 CMP #-1,6(R1) :NO CROM? 
2158 011624 001404 REQ 228 “BR IF YES 
2159 011626 000516 BR NOT A DMC 
2160 011630 052762 000002 000006 238: BIS #B1T1,6(R2) -SET BIT 1 IN STAT3 
2161 -AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS. 
2162 011636 010122 22$: MOV R1,(R2)+ :STORE CSR IN CORE TABLE. 
2163 011640 012711 001000 15$: MOV #B1T9, (R1) :CLEAR LINE UNIT LOOP 
2164 011644 005061 000004 CLR 4(R1) =CLEAR PORTS 
2165 011650 012761 122113 000006 MOV #122113,6(R1) ;LOAD INSTRUCTION (CLR DTR) 
2166 011656 052711 000400 BIS #B1T8,(R1) =CLOCK INSTRUCTION 
2167 011662 012761 021264 000006 MOV #021264,6(R1) ;LOAD INSTRUCTION 
2168 011670 052711 000400 BIS #B1T8,(R1) =CLOCK INSTRUCTION 
2169 011674 122761 000377 000004 CMPB #377,4(R1) :1S IT ALL ONES? 
2170 011702 001003 BNE .+10 :BR IF NO 
2171 0117046 052712 010000 BIS #B1T12, (R2) 7IF YES, NO LINE UNIT, SET STATUS BIT 
2172 011710 000436 BR 208 
2173 011712 032761 000002 000004 BIT #BIT1,4(R1) :1S SWITCH A ONE? 

2174 011720 001403 BEQ +10 “BR IF M8201 
2175 011722 052712 060000 BIS #BIT13'BIT14,(R2) ;M8202 ASSUME CONNECTOR 
2176 011726 000427 BR 20$ = CONNECTOR ON) 
2177 011730 032761 000010 000004 BIT #B1T3,4(R1) :1S MRDY SET 
2178 011736 001023 BNE 20$ =BR IF M8201 NO CONNECTOR (ON LINE) 
2179 011740 012761 000100 000004 MOV #B1T6,4(R1) =LOAD PORTS 
2180 011746 012761 122113 000006 MOV #122113,6(R1) ;LOAD INSTRUCTION 
2181 011754 052711 000400 BIS #B1T8, (R1) :CLOCK INSTRUCTION(SET DTR) 
2182 011760 012761 021264 000006 MOV #021264,6(R1) LOAD INSTRUCTION 
2183 011766 052711 000400 BIS #B1T8,(R1) :CLOCK INSTRUCTION(READ MODEM REG) 
2184 011772 032761 000010 000004 BIT #BIT3,4(R1) :1S MRDY SET NOW? 
2185 012000 001402 BEQ 20$ :BR IF NO CONNECTOR 
2186 012002 052712 040000 BIS #BIT14, (R2) *SET STATUS BIT FOR CONNECTOR 
2187 012006 005722 208: TST (R2)+ :POP POINTER 
2188 012010 012761 021324 000006 MOV #021324,6(R1) :PUT INSTRUCTION IN PORT6 
2189 012016 012711 001400 MOV #BIT9'BITB,(R1) ;PORT4_LU 15 
2190 012022 156122 000004 BISB 4(R1), (R2)+ :STORE DDCMP LINE # IN TABLE 
2191 012026 012761 021344 000006 MOV #021344,6(R1)  ;PORT6_INSTRUCTION 
2192 012034 012711 001400 MOV #BITB'BIT9,(R1) : CLOCK” INSTR. 
2193 012040 156122 000004 BISB 4(R1),(R2)+ :STORE BM873 ADD IN TABLE 
2194 012044 095722 TST (R2)+ :POP OVER STAT3 
2195 012046 005011 CLR (R1) =CLEAR ROM] 
2196 012050 005237 001310 INC DMNUM SUPDATE DEVICE COUNTER 
2197 012054 022737 000020 001310 CMP #20, DMNUM :ARE MAX. NO. OF DEV FOUND? 
2198 012062 001412 BEQ 13$ :YES DON'T LOOK FOR ANY MORE. 
2199 2064 005011 3$: CLR (R1) :CLEAR BIT 10 
2200 012066 005061 000006 CLR 6(R1) “CLEAR SEL 6 
2201 012072 062701 000010 14$: ADD #10,R1 UPDATE CSR POINTER ADDRESS 
2202 012076 022701 164000 CMP #164000,R1 
2203 012102 001402 BEQ 13$ :BR IF DONE 
2204 012104 000137 011472 JMP 2$ ; JUMP IF NOT 
2205 012110 005037 001306 13$: CLR DMACTV 
2206 012114 005737 001310 TST DMNUM sWERE ANY DMC11°S FOUND AT ALL? 
2207 012120 001423 REQ 5$ sFRROR AUTO SIZER FOUND NO DMC11'S IN THIS SYS. 
2208 012122 013701 001310 MOV DMNUM,R1 
2209 012126 010137 001314 MOV R1,SAVNUM :SAVE NUMBER OF DEVICES 


0034 


DMF MACY11 30a(1052 
DMF P11 08-JUL-80 
2210 012132 000241 
2211 012134 006137 
2212 012140 005237 
2213 012144 005301 
2214 012146 001371 
2215 012150 012737 
2216 012156 013737 
2217 012164 000137 
2218 012170 104402 
2219 012174 005000 
2220 012176 000000 
2221 012200 000776 
2222 012202 012716 
ses? 012206 000002 
2225 012210 000001 
2226 012212 00 
2227 012214 001256 
2228 

2229 012216 032737 
2230 012224 001114 
2231 012226 012737 
2232 012234 012737 
2233 012242 012702 
2234 012246 012700 
2235 012252 012701 
2236 012256 010120 
2237 012260 012721 
2238 012264 022021 
2239 012266 020127 
2240 012272 101771 
2241 012274 013737 
2242 012302 6037 
2243 012306 103063 
2244 012310 012704 
2245 012314 016437 
2246 012322 011201 
2247 012324 012761 
2248 012332 012711 
2249 012336 012761 
2250 012344 012711 
2251 012350 105200 
2252 012352 001376 
2253 012354 162704 
2254 012360 001404 
2255 012362 016437 
2256 012370 000767 
2257 012372 052762 
2258 012400 005011 
2259 012402 062702 
2260 012406 000735 
2261 012410 051662 
2262 012414 042762 
2263 012422 016405 
2264 012426 006305 
2265 012430 006305 





) 
08:2 


001306 
001306 


000006 


005761 
012072 


002 


000001 
000340 


000302 
000004 
001000 


001306 
001246 


000012 
012460 


000200 
001000 
121111 
001400 
000002 
012460 
005300 
000010 

00002 


0 
000007 
012462 


+ ala 08: 


000004 
001312 


001236 


000022 
000020 


001246 


177776 


000004 
000006 


177776 
000002 


000002 


6 


4$: 


5$: 


4%: 


WHICH: 


VECMAP: 


2$: 


7$: 


6$: 
3$: 


4$: 


I 
DMACTV 


6,084 
DMACTV,SAVACT 
VE CMAP 

»MERR2 

RO 


#14$, (SP) 


2,2 


| aici 
#340 ,a#22 


#4$,a#20 
#OM.MAP,R2 


DMACTV,TEMP1 
TEMP) 

5$ 

#12,R4 
BRLVL(R4) PS 
(R2),R1 
#200,4(R1) 


#B1T9, (R1) 
#121111,6(R1) 


4 


#BIT9'BITB,(R1) 


RO 

#2,,R4 

6$ 

BRLVL (RA) PS 
#5300,2(R2) 
(R1) 

#10,R2 

2 


$ 
(SP) ,2(R2) 
#7,2(R2 


) 
BRLVL*2(R4),R5 
R5 


R5 





:GENERATE ACTIVE REGISTER OF DEVICES. 


3SET THE 


;BR IF MORE TO GENERATE 


26 PAGE 48 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


BIT 


sRESTORE TRAP VECTOR 


;SAVE ACTIVE REGISTER 

:GO_ FIND THE VECTOR NOW. 

NOTIFY OPR THAT NO DMC11°S FOUND. 
;MAKE DATA LIGHTS ZERO 


;STOP THE SHOW 
DISABLE CONT. SW 


:ENTERED BY NON-EXISTANT TIMEOUT. 
[RETURN TO MAINSTREAM 


SET [OT TRAP PRIO TU ? 


;SET IOT TRAP VECTOR 


;SET SOFTWARE POINTER 
A dee. oe START HERE. 


OF IOT INST 


ae § 

START FIL 
sWITH +2 
;ADD 2 TO 


"RO +R1 


;BR IF MORE (O FILL 
;STORE TEMPORALLY 
:BRING OUT A BIT 


:BR IF A 
sR4 I 
SET PS 


L 
S_IN 


L_ DONE 
DEX REGISTER 


TO 7? 


;SET ROMI 


:PUT INSTRUCTION IN PORT6 


44 ray AN INTERRUPT 
7 TALL 
FOR TIME TO INTERUPT 


:GET NEXT LOWEST PS LEVEL 
:BR IF RG 
;MOVE =e: hee LEVEL IN PS 


BR TO DEL 


CLE 


:POP SOFTWARE POINTER 


:KEEP GOING 
3GET VECTOR ADDRESS 
;CLEAR JUNK 


[GET BR LEVEL OF DMC11 


sSHIFT LEVEL 4 PLACES 
:TO THE LEFT FOR THE 


LING VECTOR AREA 
oT 


SEQ 0047 


:NO INTERUPT ASSUME 300 AT LEVFL 5 AND Fix DMC11 LATER 
“CLEAR ROMI 
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CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 49 
035 CZDMF P11 08-JUL-80 08:25 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0048 
2266 012432 006305 ASL R5 STATUS TABLE 
2267 012434 006305 ASL R5 
2268 012436 042705 170777 BIC #170777,R5 ; CLEAR UNWANTED BITS 
2269 012442 050562 000002 BIS R5,2¢(R2) ;PUT BR LEVEL IN STATUS TABLE 
2270 012446 022626 (MP (SP)+,(SP)+ ;POP IOT JUNK OFF STACK 
. 2271 012450 012716 912400 MOV #3$, (SP) ;SET FOR RETURN 
2272 012454 000002 RT] 
$st7 012456 000207 S$: RTS PC sALL DONE WITH ‘AUTO SIZING" 
2275 012460 000000 BRLVL: 0 LEVEL 0 
2276 012462 000000 0 LEVEL 0 
2277 012464 000200 200 ;LEVEL 4 
2278 012466 000240 240 LEVEL 5 
2279 012470 000300 300 ;LEVEL 6 
2280 012472 000340 340 LEVEL 7 
2281 
2282 
2283 012474 105777 166504 INTTY: TSTB aTKCSR ;WAIT FOR DONE 
284 012500 100375 BPL 274 
2285 012502 %17703 166500 MOV aTKDBR,R3 ;PUT CHAR IN R3 
2286 012506 105777 166476 TSTB aTPCSR sWAIT UNTIL PRINTER IS READY 
2287 012512 100375 BPL 274 
2288 012514 010377 166472 MOV R3,aTPOBR ;ECHO CHAR 
2289 012520 042703 000240 BIC #BIT7'BIT5,R3 sMASK OFF LOWER CASE 
2290 012524 000207 RTS PC ;RETURN 
2291 
2292 
2293 
2294 
| 2295 peeeeeeereereneeeeeeereeeene TEST |] teateerererereeeeeeenenenes 
2296 >*OUT CONTROL REGISTER READ/ONLY TEST 
2297 7*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
| 2298 BITS ARE IN THE CORRECT STATE 
2299 PF RRAAAATATE AAA eee eee eee AAA ATA AAA Kee eee Ae eA Teeter ee Tees 
2300 
2301 s VEST 1 
| 2302 i eenewesnnenees 
2303 012526 012737 000001 001226 TST1: MOV #1,TSTNO 
| 2304 012534 012737 012602 001216 MOV #TST2,NEXT 
2305 ;R1 CONTAINS BASE DMC11 ADDRESS 
2306 012542 005077 166636 CLR @DMCSR ;CLEAR SELO 
2307 012546 012702 000011 MOV #11,R2 [SAVE R2 FOR TYPEOUT 
2308 012552 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2309 012554 021224 021004!<20*11> ;PORT4 LINE UNIT REG 11 
| 2310 012556 016104 000004 MOV 4(R1) ,R4 PUT ‘'FOUND'’ IN R4 
2311 012562 042704 000054 BIC #54,R4 ;CLEAR UNKNOWN BITS 
2312 012566 012705 000020 MOV #2C0,R5 ;PUT “‘EXPECTED'’ IN RS 
2313 012572 120504 CMPB R5,R4 31S OUT READY SET? 
2314 012574 001401 BEQ 1$ 3;BR IF YES 
2315 012576 104002 HLT 2 ;ERROR IN LU 11 
$31$ 012600 104400 1$: SCOPE sSCOPE THIS TEST 
2318 
2319 pteeeeteererecetereeneeeeene TEST 2 tteececereeneeneerereresene 
2320 :*IN CONTROL REGISTER READ/ONLY TEST 
2321 :*DO0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 


0036 















012602 
012610 


012616 


WN —OOONAWE wr 


CYYUSSSSS Nous Uere 
uw 

o 

_ 

~N 

oa 

~m 

Mm 


37 012642 
2339 012646 


2350 012650 
2351 012656 


2359 012706 
2360 012712 
2361 012714 
2362 012716 
2363 012720 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 012722 
2375 012730 
2376 
2377 012736 


DMF MACY11 30A(1052) 
MF P11 08-JUL-80 


104400 


012737 
012737 


104412 


104400 


012737 
012737 


104412 


O8-JUL-80 08: 
08:25 


000002 0012 
012650 0012 


000012 


000004 
000017 


2 
1 


6 
6 


000003 001226 
012722 001216 


000013 


000004 
000213 
000100 


000004 0012 
013024 0012 


2 
1 


6 
6 


26 


TST2: 


TST3: 


1$:° 


TST4: 


K 4 


PAGE 50 
LINE UNIT READ/ONLY TESTS 


:*BITS ARE IN THE CORRECT STAiL 


SURAAAAAHEEARAETEEHEEEEEAHERHEHEHERHEEEAAAHEHAAAATAHERENAEE EE EEE 


MOV #2,TSTNO 

MOV #TST3,NEXT 

:R1 CONTAINS BASE DMC11 ADDRESS 

MOV #12,R2 SAVE R2 FOR TYPEOUT 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004!<20*12> ;PORT4 LINE UNIT REG 12 

MOV 4(R1),R4 :PUT ‘FOUND’ IN R4 

BIC + ae sCLEAR UNKNOWN BITS 


CLR & sPUT ‘EXPECTED’ IN RS 
CMPB R5,R4 ;ARE ALL BITS CLEARED? 
BEQ 1$ ;BR IF YES 

HLT ee sERROR IN LU 12 

SCOPE sSCOPE THIS TEST 


peeeeeeeeeteeeeeeererererene TEST 3 reteeeneeeeenereeeeeerenees 
;*MODEM CONTROL REGISTER READ/ONLY TEST 

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

;*BITS ARE IN THE CORRECT STATE 


PIAA ARAAAHAAHTHA ATE HETAEKAHE KARE KKRKKAKHAAeKAAHHEKeKAKeA KAT Tees 


MOV #3, TSTNO 


MOV #TST4,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
MOV #13,R2 SAVE R2 FOR TYPEOUT 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004 !<20*13> sPORT4_LINE UNIT REG 13 
MOV 4(R1),R4 :PUT ‘FOUND’ IN R4 
:CLEAR UNKNOWN BITS 
PUT "EXPECTED'’ IN R5 


CMPB R5,R4 ;ARE RING, DTR, AND MODEM READY SET? 
BEQ 1$ :BR IF YES 

HLT 2 sERROR IN LU 13 

SCOPE ;SCOPE THIS TEST 


peeeenereerererrereeeerereee TEST 4 teeeeaneneeeeenereeereerere 
;*MAINTENANCE REGISTER READ/ONLY TEST 

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

;*BITS ARE IN THE CORRECT STATE 


PI AAAAReeeeeeeeeeetereereeAetereeKeKeneeKeKeetetateeetenesnesse 


MOV #4, TSTNO 


MOV @TSTS,NEXT 
7R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 


SEQ 0049 


0037 








CZDMF = =MACY11 30A(1052) 
CZ2DMF P11 08-JUL-80 08: 
2378 012740 012702 
2379 012744 104414 
2380 012746 021364 
2381 012750 016104 
2382 012754 042704 
2383 012760 012705 
2384 012764 032737 
2385 012772 001004 
2386 012774 032737 
2387 013002 001004 
2388 013004 042704 
2389 013010 042705 

2390 013014 

2391 013014 120504 
2392 013016 001401 
2393 013020 104002 
2394 013022 104400 
2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 013024 012737 
2406 013032 012737 
2407 013040 012737 
2408 

2409 013046 104412 
2410 013050 012702 
2411 013054 012761 
2412 013062 104414 
2413 013064 122112 
2414 3066 104414 
2415 013070 021245 
2416 013072 012705 
2417 013076 116104 
2418 013102 042704 
2419 013106 120504 
2420 013110 001401 
2421 013112 104003 
2422 013114 104401 
2423 013116 012737 
2424 013124 005061 
2425 013130 104414 
2426 0135132 122112 
2427 013134 104414 
2428 013136 021245 
2429 013140 005005 
2430 013142 116104 
2431 013146 042704 
2432 013152 120504 
2433 013154 001401 


000017 


000004 


020000 
040000 


000040 
000040 


000005 
013164 
013054 


000012 
000040 


000040 
000005 
000337 


013124 
000004 


000005 
000337 


001366 
001366 


001220 


A moet “80 08:26 PAGE 51 


LINE UNIT READ/ONLY TESTS 


2$: 
3$: 


TSTS: 


23: 
3$: 


nee #17,R2 

031006: <20*17> 
4(R1),R4 

BI #206,R4 

MOV #51,R5 

BIT #BIT13,STATI 

BNE 23 

BIT #BIT14,STATI 

BNE 3$ 

BIC #40,R4 

BIC #BITS,R5S 

CMPB R5,R4 

BEQ 1$ 

HLT 2 

SCOPE 


;SAVE R2 FOR TYPEOUT 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4 LINE ot REG 17 

:PUT ‘FOUND'' IN 

: CLEAR UNKNOWN Bit S 

;PUT "'EXPECTED'’ IN R5 

:1S LU AN M8202 OR M8201? 

:BR IF M8202 

; CONNECTOR??? 

:BR IF M8201 WITH CONNECTOR 

;MASK OFF SI BIT IF M8202 OR M8201, 
;S1 BIT IS UNKNOWN 


;ARE SI AND ICIR SET? 
:BR IF YES 

;ERROR IN LU 17 
;SCOPE THIS TEST 


NO CONNECTOR 


peeeeeeeeeeeeeeeeeeeererenen TEST 5 teareereeetereneerenennennt 
S*LINE UNIT REGISTER WRITE/READ TEST 

;*SET BITS IN LU REGISTER 12, VERIFY IT IS SET 

oe BITS IN LU REGISTER 12, VERIFY IT IS CLEAR 


PRP RERER RESALE SESESR SEES ERR S SSSR RRR RASA RRR RADA AAAS RRR A RODS DS 


#5,T 


riéte. Next 


#1$,LOCK 


#12,R2 
#40,4(R1) 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 


M 
;SAVE REGISTER ADDRESS FOR TYPEOUT 
;LOAD PORTS 
iNEXT WORD r: INSTRUCTION, ROMCLK PC=5304 
;SET BITS IN LU-12 
zNEXT WORD, Is. INSTRUCTION, ROMCLK PC=5304 


LU-1 
:PUT “'EXPECTED'' IN R5 


;PUT "‘FOUND'' IN R4 
;CLEAR UNWANTED BITS 
i1S BITS SET? 
R IF YES 
TERROR, BIT 5 IS NOT SET 
sSCOPE SUBTEST (SWO9=1) 
NEW SCOP1 
;LOAD PORT4 
;NEXT WORD IS yrs Ven ROMCLK PC=5304 
i CLEAR BIT 5 IN LU-12 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;READ. Lu-12 
;PuT “EXPECTED” ie R5 
:PUT ‘FOUND’ IN R 
;CLEAR UNWANTED BITS 


“1S BITS CLEAR? 
;BR IF YES 


SEQ 0050 


0038 





CZDMF = =MACY11 30A(105c) 


CZDMF .P11 


mrnrnrnn jm-— 


26 


08-JUL-80 


6 104003 
0 104401 
2 104400 


—M & = = WON0O —- | © _—_ 
< 
_ 
N 


2478 013322 104400 


8 
2489 013324 012737 


Q8-JUL-80 08: 
08:25 


000006 
013324 
013214 


000017 
000001 


000001 
000005 
000376 


013264 
000004 


000005 
000376 


001226 
001216 
001220 


000004 


001220 


000007 001226 


26 


4$: 


TST6: 


2$: 
3$: 


4$: 


TST?7: 


PAGE 52 
LINE UNIT WRITE/READ TESTS 


HLT 3 ;ERROR, BITS IS NOT CLEAR 
SCOP 1 ;SCOPE SUBTEST (Sw09=1) 
SCOPE :SCOPE THIS TEST 


peeeeeeeeereererteeeerereeen TEST 6. eeeeeeeeeeeeeteeteeeteretee 
S*LINE UNIT REGISTER WRITE/READ TEST 

;*SET BIT1_IN LU REGISTER 17, VERIFY IT IS SET 

ebanes BIT1 IN LU REGISTER 17, VERIFY IT IS CLEAR 


PrPPererrrrrerrerererTrrrerrrerrerrTrerrrrerririrttiti titi iti iit 


MOV #6,TSTNO 
MOV #TST7,NEXT 
MOV #1$,LOCK 
;R1 CONTAINS BASE DMC11 ADDRESS 


MSTCLR ;MASTER CLEAR DMC11 
MOV #17,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
MOV #1,4(R1) ;LOAD PORT4 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 SET BIT1 IN LU-17 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021365 ;READ LU-17 
MOV #1,R5 ;PUT “EXPECTED'’ IN R5 
MOVE 5(R1),R4 ;PUT ‘‘FOUND’’ IN R4 
BIC #376,R4 :CLEAR UNWANTED BITS 
CMPB R5,R4 1S BIT1 SET? 
BEQ 2$ ;BR IF YES 
LT 3 ERROR, BIT 1 1S NOT SET 
SCOP1 ;SCOPE SUBTEST (SW09=1) 
MOV #3$,L0CK ;NEW SCOP1 
CLR 4(R1) ;LOAD PORTS 
ROMCLK NEXT WORD IS ei eae ROMCLK PC=5304 
122117 CLEAR BIT 1 IN LU-17 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021365 ;READ LU-17 
CLR R5 :PUT "EXPECTED" ie R5 
MOVB 5(R1),R4 ;PUT ‘FOUND’ IN 


BIC #376,R4 [CLEAR UNWANTED Bits 


CMPB R5,R4 :1$ BIT1 CLEAR? 

BEG 4$ ;BR IF YES 

HLT 3 ;ERROR, BIT1 IS NOT CLEAR 
SCOP1 ;SCOPE SUBTEST (SWO9=1) 
SCOPE ;SCOPE THIS TEST 


peeeeeeeereeetertterrerrenet TEST 7 eeeeenentereeeeeeeeaererene 
7*LINE UNIT REGISTER WRITE/READ TEST 

[*FLOAT A 1 THROUGH LINE UNIT REGISTER 13 

at ree A 0 THROUGH LINE UNIT REGISTER 13 


SRRRARAAAEAATERAK AeA eee Ke eeeKeReReteeeeeratetereiaeeretereeese 


MOV #7, 1STNO 


SEQ 0051 


CZDMF =MACY11 30A(1052) 
80 0 





QO8-JUL-80 08:26 PAGE 53 


SSS SS sss 


CZDMF.P11 08-JUL-80 08:25 LINE UNIT WRITE/READ TESTS SEQ 0052 

2490 013332 012737 013534 001216 MOV #TST1O,NEXT 

2491 013340 012737 013360 001220 MOV #64$,L0CK 

2492 :R1 CONTAINS BASE, pact ADDRESS 

2493 013346 104412 MSTCLR ‘MASTER CLEAR DMC 

2494 013350 012702 000013 MOV #13,R2 ‘SAVE REGISTER ASDRESS FOR TYPEOUT 

2495 013354 012700 000001 MOV #1,RO SSTART WITH BIT 0 

2496 013360 64$: 

2497 013360 010061 000004 MOV RO,4(R1) sPUT PATTERN INTO PORTS 

2498 013364 042761 000257 000004 BIC #257,4(R1) “CLEAR UNWANTED BITS 

24 13372 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
00 013374 122113 122i09113 :MOV DATA TO IBUS REGISTER 1 

2501 013376 104414 ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2502 134 021 B1008 '<13#20> ;READ FROM IBUS REGISTER R 13 

2503 013402 010005 MOV RO,R5 ‘PUT EXPECTED IN R5 

2504 013404 042705 000257 BIC 389 RS “CLEAR UNWANTED BITS 

2505 013410 116104 000005 MOVB 5(R1),R4 :PUT ‘'FOUND'' INTO R4& 

2506 013414 042704 000257 BIC #257,R4 [CLEAR UNWANTED BITS 

2507 013420 120504 CMPB sR, RG [DATA CORRECT? 

2508 013422 001401 BEQ 65$ ‘BR IF YES 

2509 013424 104003 HLT 3 ERROR 

2510 013426 104401 65$: SCOP1 §w09=1? 

2511 013430 000241 CLC sCLEAR CARRY 

2512 013432 106100 ROLB = RO :SHIFT BIT IN RO 

2513 013434 001351 BNE 4$ ‘IF RO=0 THEN DONE 

2514 013436 012737 013452 001220 MOV #67$,LOCK [NEW SCOP1 

2515 013444 012700 000001 MOV #1,RO [START WITH BIT 0 

2516 013450 005100 69$: COM RO ;CHANGE TO FLOATING ZERO 

2517 013452 67$: 

2518 013452 010061 000004 MOV RO,4(R1) ;PUT PATTERN INTO PORTS 

2519 013456 042761 000257 000004 BIC #257,4(R1) ‘CLEAR UNWANTED BITS 

2520 013464 104414 ROMCLK [NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2521 013466 122113 122100113 :MOV PATA TO IBUS REGISTER 13 

2522 013470 104414 “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2523 013472 021265 BT008 '<13"20> [READ FROM IBUS REGISTER 13 

2524 013474 010005 MOV RO,RS :PUT EXPECTED IN R5 

2525 013476 042705 000257 BIC #257,R5 “CLEAR UNWANTED BITS 

2526 013502 116104 000005 MOVB 5(R1),R4 :PUT “"FOUND'' INTO R4 

2527 013506 042704 000257 BIC #257,R4 ‘CLEAR UNWANTED BITS 

2528 013512 120504 CMPB sR, RG [DATA CORRECT? 

2529 013514 001401 BEQ 68$ ‘BR IF YES 

2530 013516 104003 HLT z TERROR 

2531 013520 104401 68$: SCOP1 *$wO9=1? 

2532 013522 005100 COM RO : CHANGE TO amon 1 

2533 013524 000241 CLC >CLEAR CARRY 

2534 013526 106100 ROLB =. RO :SHIFT BIT IN RO 

2535 013530 001347 NE 69% > IF RO=0 THEN DONE 

2536 013532 104400 SCOPE “SCOPE THIS TEST 

2538 

2539 peeeeeererrereerrerereeretes TEST 10 seeenenereeeneerererenenere 

2540 SeLINE UNIT REGISTER WRITE/READ TEST 

2541 :eFLOAT A 1 THROUGH LINE UNIT REGISTER 14 

2542 SeFLOAT AO THROUGH LINE UNIT REGISTER 14 

2543 PL eMAReeeeeereeetereteeeeeeteeteeeteteterteneesteerenesereeeeets 

2544 


2545 ; TEST 10 


" NE sss nesses SEE 


B 5 
MACY11 30A(1052) OQ8-JUL-80 08: ? PAGE 


54 
0040 Pil 08-JUL-80 08:25 LINE UNIT WRITE/READ TESTS SEQ 0053 





| 013534 012737 000010 001226 T5110: Mov #10, TSTNO 
013542 012737 013710 001216 MOV #TST11,NEXT 
| 013550 012737 013570 001220 MOV = #64$,,LOCK 
7R1 CONTAINS BASE pact ADDRESS 
013556 104412 MSTCLR :MASTER CLEAR DMC 
013560 012702 000014 MOV #14,R2 ;SAVE REGISTER ADORESS FOR TYPEQUT 
81 e288 012700 000001 ‘een MOV #1,R0 :START WITH BIT 0 
013570 010061 000004 MOV RO,4(R1) ;PUT PATTERN INTO PORTS 
013574 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
013576 122114 122100!14 ;MOV DATA TO ISUS REGISTER 
013600 104414 ROMCLK :NEXT WORD IS INSTRUCTION, [ROMCL PC=5304 
013602 021305 21005!<14#20> ;READ FROM IBUS REGISTER 
013604 010005 MOV RO,RS ;PUT EXPECTED IN RS 
013606 116104 000005 MOVB 5(R1) RG ;PUT "'FOUND'' INTO R4 
013612 120504 CMPB RS, RG ;DATA CORRECT? 
013614 001401 BEQ 65$ [BR IF YES 
013616 104003 HLT 3 > ERROR 
013620 104401 658: SCOP1 7 9w09=1? 
013622 000241 CLC :CLEAR CARRY 
013624 106100 ROLB~=—s RO ;SHIFT BIT IN RO 
013626 001360 BNE 64$ 7IF RO=0 THEN DONE 
013630 012737 013644 001220 MOV #67$,LOCK :NEW SCOP1 
013636 012700 000001 MOV #1,R0 START WITH BIT 0 
013642 005100 69%: COM RO :CHANGE TO FLOATING ZERO 
013644 673: 
013644 010061 000004 ROY RO,4(R1) ;PUT PATTERN INTO PORT4 
013650 104414 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 013652 122114 13210014 ;MOV DATA TO IBUS REGISTER 14 
013654 104414 :NEXT WORD iS INSTRUCTION, ROMCLK PC=5304 
013656 021305 21005! 14420» ;READ FROM IBUS REGISTER 14 
013660 010005 RO,RS sPUT EXPECTED IN R5 
013662 116104 000005 MOVE 5(R1),R4 PUT ‘FOUND’ INTO R4 
013666 120504 CMPB sR, RG :DATA CORRECT? 
013670 001401 BEQ 68% :BR IF YES 
| 013672 104003 at o% “ERROR 
013674 104403 68$: SCOP1 7 SWO9=1? 
013676 005100 COM RO : CHANGE | 10. FLOATING 1 
013700 000241 CLC 7 CLEAR 
| 013702 106100 ROLB = RO SHIFT BIT IN RO 
013704 001356 BNE 69$ SIF RO=0 THEN DONE 
| 013706 104400 SCOPE :SCOPE THIS iEST 
peteereeeeeeeererenrerenanee TEST 1] eeeeteneneneeerereeeeererne 
s*SWITCH PAC TEST 
;*THIS TEST READS SWITCH PAC#1 
s*THIS SWITCH PAC CONTAINS THE DDCMP LINE @# 
PTA AAARHHEKAAARAE Ree eH ARH KH ee RRR eReReKeReeAeAeAteneeeerteiees 
; Test 11 
013710 012737 000011 001226 1TsT11: MoV #11, TSTNO 
013716 012737 013752 001216 MOV #@TST12,NEXT 





:R1 CONTAINS BASE DMC11 ADDRESS 


| 4 
Leyes stasis stiedeseispesiseeibeeseeesosseesnninnnieiemtnestionises tesiineussameeniisisieeaneerenierts-ciniemeneseees_.. 


‘3 








C7DMF MACY11 aoe ig B Q08-JUL-80 08:26 PAGE 55 
0041 CZ2DMF .P11 08-JUL-80 08:25 LINE UNIT WRITE/READ TESTS SEQ 0054 
2602 013724 104412 MSTCLR MASTER CLEAR DMC11 
2603 013726 104414 ROMCLK ;NEXT WORD +s INSTRUCTION, ROMCLK PC=5304 
2604 013730 021324 021324 ;PORT4 LUIS 
| 2605 013732 016104 000004 MOV 4(R1) ,R4 ;PUT "FOUND" IN RG 
2606 013736 113705 001370 MOVB STAT2,R5 1p listed IN RS 
2607 013742 120504 CMPB R5,R4 SW 0 
2608 013744 001401 BEQ 1$ [BR IF “YES 
2609 013746 104031 HLT 31 sERROR, SWITCH PAC READ ERROR 
iy 013750 104400 1$: SCOPE SCOPE THIS TEST 
2612 
2613 peeeeeeeneterenteeereeteeeer TEST 12 eeeeeetereeenteerereeeneree 
2614 s*SWITCH PAC TEST 
2615 ;*THIS TEST READS SWITCH PAC#2 
2616 ¢*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD 
j 2617 EPP PPS R RRR S REECE ESE SESS SESE CCC E SCLC ES SESE LCLOCLCCCLICC CCT. ST 
2618 
| 2619 ; TEST 12 
2620 prot reece ene--- 
2621 013752 012737 000012 001226 15112: MoV #12,TSTNO 
2622 013760 012737 014014 001216 MOV #TST13,NEXT 
2623 3R1 CONTAINS ges th 1 ADDRESS 
2624 013766 104412 MSTCLR [MASTER CLEAR DMC 
2625 013770 104414 ROMCLK sNEXT WORD !S PRaTRUCT ION, ROMCLK PC=5304 
2626 013772 021344 021344 sPORT4 LUI6 
2627 013774 016104 000004 MOV 4(R1),R4 :PUT "FOUND"” IN R4 
2628 014000 113705 001371 MOVB STAT2+1,R5 ;PUT ""EXPECTED'’ IN R5 
| 2629 014004 120504 CMPB RS, RG :SW OK? 
2630 014006 001401 BEQ 1$ “BR IF YES 
2631 014010 104031 HLT 31 ‘ERROR, SWITCH PAC READ ERROR 
2632 014012 194400 1$: SCOPE ;SCOPE THIS TEST 
2633 
2634 
2635 pe eeeeeeeeeereenereteeeeeaee TEST 13 aeeeeneeerererererenereerer 
2636 :*LINE UNIT CLOCK TEST 
2637 s*THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 
2638 3*(BIT 1 IN LU=17) IS WORKING 
2639 eee PPP PPP PRR RRR SSE S ESSE SEES CCC SS SECC COCCOCOCOCCSCCCOLCOLOECLESELS 
| 2640 
2641 > TEST V3 
| 2642 g OURS Rae 
2643 014014 012737 000013 001226 1TST13: MOV #13,TSTNO 
2644 014022 012737 014114 001216 MOV #TSTIG,NEXT 
2645 ;R1 CONTAINS BASE DMC11 ADDRESS 
2646 014030 104412 MSTCLR ;MASTER CLEAR DMC11 
2647 014032 005037 001416 CLR TEMP ;PREPARE FOR DELAY 
2648 014036 1$: 
2649 014036 104414 ROMCLK ;NEXT WORD ti eo ROMCLK PC=5304 
2650 014040 021364 021364 PORT4 LU-17 
2651 014042 032761 000002 000004 BIT #2,4(R1) 71S cLOC 8 BIT SET? 
2652 014050 001004 BNE 2$ BR I 
2653 014052 005237 001416 INC TEMP DEL 
2654 014056 001367 BNE 1$ DELAY FINISHED? 
2655 014060 104004 HLT 4 sERROR BIT IS STUCK CLEAR 
2656 tee vod 005037 001416 ep CLR TEMP :PREPARE FOR DELAY 





CZDMF = =MACY11 30A(1052) O8-JUL-80 08:26 PAGE 56 


CZDMF .P11 08-JUL-80 08:25 LINE UNIT WRITE/READ TESTS : SEQ 0055 
2658 014066 104414 ROMCLK NEXT WORD + INSTRUCTION, ROMCLK PC=53504 
2659 014070 021364 : 02° 364 ;PORT4 LU-i7 
2660 014072 032761 000002 00004 BIT #2,4(R1) i1S CLOCK BIT CLEAR? 

2661 014100 001404 BEQ 4$ :BR | YES 

2662 014102 005237 001416 INC TEMP ;DELAY 

2663 014106 001367 BNE 3$ :BR IF DELAY NOT DONE 

2664 014110 104004 HLT 4 ERROR BIT IS STUCK SET 

2665 014112 104400 4$: SCOPE 

2666 
2667 
2668 peeteeeeeerereereeerertereee TEST 14 teteeneererarererreeeretene 
2669 :*OUT DATA SILO TEST 

2670 :*SET SOM AND LOAD OUT DATA SILO 

2671 *VERIFY THAT OCOR SET, INDICATING THAT THE 

2672 > *CHARACTES IS AT THE BOTTOM OF THE OUT SILO 

2673 PUA RARTATEE TTA TT eee tReet eeeeeKeeeeeeKettenetetetenereeerene 
2674 

2675 ; TEST 14 

2676 pee eeerececee- 

2677 «014114 012737 000014 001226 TST14: MOV #14,TSTNO 

2678 014122 012737 014230 001216 MOV #TST15,NEXT 

2679 ;R1 CONTAINS BASE DMi11 ADDRESS 

2680 014130 104412 MSTCLR :MASTER CLEAR DMC11 

2681 014132 005061 000004 CLR 4(R1) ;CLEAR PORTS 

2682 014136 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=53504 
2683 014140 122117 122117 ;PUT LINE UNIT IN BITSTUFF MODE 

6 014142 004737 033676 JSR PC,CLRIO ;DO THIS AFTER MODE IS SET 

2685 014146 012711 004000 MOV #B1T11,(R1) ;SET LINE UNIT LOOP 

6 014152 012761 000001 000004 MOV #1,4(R1) [LOAD PORT4 WITH BITO 

2687 014160 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2688 014162 122111 122111 :SET SOM 
2689 014164 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
6 014166 122110 122110 ;LOAD OUT DATA SILO 

2691 014170 104416 000002 TIMER, 2 ;WAIT FOR OCOR 

2692 014174 012702 000017 MOV #17,R2 SAVE ADDRESS FOR TYPEOUT 

2693 014200 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2694 014202 021364 021364 >PORT4 LU 17 

2695 014204 016104 000004 MOV 4(R1) ,R4 :PUT ‘“FOUND'' IN R4 

2696 014210 042704 000357 BIC #357,R4 >CLEAR UNWANTED BITS 

2697 014214 012705 000020 MOV #20,R5 :PUT EXPECTED’ IN RS 

2698 014220 120504 CMPB R5,R4 :1S OCOR SET? 

2699 014222 001401 BEG 1$ :BR IF YES 

2700 014224 104005 HLT 5 

2701 014226 1$: 

2702 014226 104400 SCOPE ;SCOPE THIS TEST 

2703 

2704 

2705 peeeneeneeerereeerreeereeene TEST 15 terenaneancenerenerereneere 
2706 SeBITSTUFF TEST OF RTS AND OUT ACTIVE 

2707 :#SET SOM AND LOAD OUT DATA SILO 

2708 :*SINGLE STEP 2 DATA CLOCKS, VERIFY 

2709 ;*THAT RTS AND ACTIVE ARE SET 

2710 Pi dweReteenertteeeretenereeneeteeeetenneeerteeeterterereeeereees 
2711 

2712 ¢ TEST 9 

2713 alti tetatatal 


0043 





MACY11 30A(1052) 
P11 


Q8-JUL-80 08:26 PAGE 


08-JUL-80 08:25 


ee et ad ad od 3 ot 


014334 


014400 


014402 
014410 


014416 


014430 


012737 
012737 


104412 


104005 
012702 


104005 
104400 


000015 
014402 


000004 


033676 
004000 
600001 


032346 
000002 
000011 


000004 
000257 
000120 
000013 


000004 
000337 
000040 


000016 
014614 


000004 


033676 


001226 
001216 


000004 


001226 
001216 


57 
BASIC TRANSMITTER TESTS 


TST15: 


2$: 


TST16: 


MOV #15,TSTNO 
MOV #TST16,NEXT 
MSTCLR 

CLR 4(R1) 
ROMCLK 

122117 

JSR PC,CLRIO 
MOV wBITI1, (R1) 
MOV #1 4(R1) 
ROMCLK 

122111 

ROMCLK 

122110 

JSR PC ,OCOR 
DATACLK, 

MOV #11,R2 
ROMCLK 

021224 

MOV 4(R1),R4 
BIC #257,R4 
MOV #120,R5 
CMPB RS ,R4 
BEQ 1$ 

HLT 5 

MOV #12,R2 
ROMCLK 

021264 

MOV 4(R1),R4 
BIC #337,R4 
MOV #BITS,R5 
CMPB RS,R4 
BEQ 2$ 

HLT 5 

SCOPE 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 


;CLEAR PORTS 


;NEXT WORD IS_ INSTRUCTION, 


rs) 
;LOAD PORTS WITH BITO 
;NEXT WORD IS INSTRUCTION, 


;SET SOM 


;NEXT WORD IS INSTRUCTION, 
;LOAD OUT DATA SILO 


;WAIT FOR OCOR 


;CLOCK DATA FOUR TIMES 
SAVE ADDRESS FOR TYPEOUT 
;NEXT WORD IS INSTRUCTION, 


;PORT4 LU 11 
:PUT ‘‘FOUND'' 


IN RS 


:CLEAR UNWANTED BITS 


‘PUT "EXPECTED" 
sI1S ACTIVE SET? 
sBR IF YES 


IN R5 


SAVE ADDRESS FOR TYPEOUT 
sNEXT “CG 8 INSTRUCTION, 


;PORT4 


:PuT ERPECTED IN RG 
;CLEAR UNWANTED BITS 


= PUT “EXPECTED'' 
:1S RTS OK? 
sBR IF YES 
;RTS ERROR 


;SCOPE THIS TEST 


IN RS, RTS 


ROMCLK PC=5304 
MODE 


ROMCLK PC=5304 
ROMCLK PC=5304 


ROMCLK PC=5304 


ROMCLK PC=5304 


SHOULD BE SET 


pteeeeeetererteetereererenee TEST 16 teeenneeeretererererereriee 


[*TEST OF OUT CLEAR 


:*SET SOM AND LOAD OUT DATA SILO 


:*SINGLE STEP DATA CLOCK, 


SET OUT CLEAR 


;*VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED 


SIAAAAHHHHAHHKKEKAEHE HAA AAARAAAHAKAKHAHHAKKKeKHAKHAKeKeeseeseeee 


s TEST 16 

MOV #16, TSTNO 
MOV #1ST17 NEXT 
MSTCLR 

CLR 4(R1) 
ROMCLK 

122117 

JSR PC,CLRIO 


;R1 CONTAINS we ADDRESS 


:MASTER CLEAR DMC 
;CLEAR PORTS 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT LINE UNIT IN BITSTUFF MODE 
[DO THIS AFTER MODE IS SET 


SEQ 0056 


0044 





CZDMF MACY11 neo yl) 
CZDMF .P11 08-JUL-80 08: 
2770 014434 012711 
2771 014440 012761 
2772 «014446 104414 
2773 014450 122111 
2774 014452 104414 
2775) 014454 122110 
2776 014456 004737 
2777 014462 104415 
2778 014466 012761 
2779) 014474 = 104414 
2780 014476 122111 
2781 014500 104415 
2782 014504 012702 
2783 014510 104414 
2784 014512 021364 
2785 014514 016104 
2786 014520 042704 
2787 014524 005005 
2788 014526 120504 
2789 014530 001401 
2790 014532 104005 

2791 014534 

2792 014534 012702 
2793 014540 104414 
2794 014542 021264 
2795 014544 016104 
2796 014550 042704 
2797 014554 005005 
2798 014556 120504 
2799 014560 001401 
2800 014562 104005 
2801 014564 

2802 014564 012702 
2803 014570 104414 
2804 014572 021224 
2805 014574 016104 
2806 014600 012705 
2807 014604 120504 
2808 014606 001401 
2809 014610 104005 
2810 014612 

2811 014612 104400 


— 


004000 
000001 


032346 
000002 
000200 


000001 
000017 


000004 
000357 


000013 


000004 
000337 


000011 


000004 
000020 


000004 


000004 


. fi JUL-80 08:26 PAGE 58 


BASIC TRANSMITTER TESTS 


e$: 


33: 


MOV 


#B1T11 


,(R1) 
#1,4(R1) 


PC,OCOR 


“#BIT7,4(R1) 


4(R1),R4 


#13,R2 


4(R1),R4 
#337 ,R4 
R5 

R5,R4 
2$ 

5 


#11,Re 


4(R1),R4 


;SET LINE UNIT 


LOOP 


;LOAD PORTS WITH BITO 
sNEXT _ IS INSTRUCTION, 


;SET SO 


:NEXT WORD IS Re th hice 


F 0 oR 
;CLOCK DATA FOUR TIMES 


;SET BIT7 IN PO 


NEXT WORD IS 
;SET OUT CLEAR 


RT4 
INSTRUCTION, 


:GIVE A TICK TO CLEAR RTS 
;SAVE ADDRESS FOR TYPEOUT 


;NEXT WORD IS 
;PORT4 LU 17 


INSTRUCTION, 


;PuT ‘FOUND'' IN R4 
CLEAR UNWANTED BITS 


:PUT "EXPECTED" 


IN RS 


1S OCOR CLEARED? 


;BR IF YES 


;SAVE ADDRESS FOR TYPEOUT 


NEXT WORD IS 
;PORT4 LU 13 
:PUT EXPECTED 


INSTRUCTION, 
IN RG 


;CLEAR UNWANTED BITS 


:PUT "EXPECTED" 


;1S RTS OK? 
;BR IF YES 
:RTS ERROR 


IN RS, RTS 


;SAVE ADDRESS FOR TYPEOUT 


:NEXT WORD IS 
sPORT4 LU11 
:PUT ''FOUND'' J 


iNSTRUCTION, 


ROMCLK 
ROMCLK 


ROMCLK 


ROMCLK 


ROMCLK 


SHOULD 


ROMCLK 


R4 
;ONLY OUT READY SHOULD BE SET 
31S ACTIVE CLEAR? 


SBR If ¥ 


ES 
ERROR ACTIVE NOT CLEARED 
;SCOPE THIS TEST 


PC=5304 
PC=5304 


PC=5304 


PC=5304 


PC=5304 


BE CLEARED 


PC=5304 


SEQ 0057 


0045 


MACY11 36A(1052) 


CZDMF 
CZDMF P11 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 014614 
2827 014622 
2828 

2829 014630 
2830 014632 
2831 014636 
2832 014640 
2833 014642 
2834 014646 
2835 014652 
2836 014656 
2837 014662 
2838 014670 
2839 014672 
2840 014674 
2841 014676 
2842 014700 
2843 014704 
2844 014710 
2845 014714 
2846 014716 
2847 014720 
2848 014724 
2849 014726 
2850 014730 
2851 014734 
2852 014742 
2853 014746 
2854 014752 
2855 014754 
2856 014760 
2857 014762 
2858 014764 
2859 014766 
2860 014772 
2861 014774 
2862 014776 
2863 015000 
2864 015004 
2865 015006 
2866 015010 
2867 015014 


106002 


Q8-JUL-80 08:26 PAGE 59 
BASIC TRANSMITTER TESTS 


08-JUL-80 08:25 


000017 001226 
015076 001216 


000004 


033676 
034114 


0 
000001 
000000 


032500 
009004 


032346 
000002 

1 
001252 
032314 


032314 


000010 


000001 





000004 


001252 


TSI TF 3 


peeeeteeeeeeterereereeereneee TEST 17 seeeenerentreeeeteerererees 
:*BITSTUFF TRANSMITTER TEST 

:*SINGLE CLOCK THE CHARACTER 0 

>*CHECK FLAG AND DATA IN THE BIT WINDOW 

s*VERIFY EACH BIT POSITION AS IT 

:*PASSES THE BIT WINDOW (SI BIT) 

:*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


SERRA ROR AAA E EERE ARERR EREREEHEEAEHEERERERHEREREREEREEEEE 


TEST 


Ss eee oeeoee 


MOV 
MOV 
MSTCLR 
C 


17 
#17,TSTNO 
#TST20,NEXT 


4(R1) 


PC,CLRIO 
BITCON 
#BIT11,(R1) 
PC ,OUTRDY 
#1 ,4(R1) 


:R1 CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAR DMC11 
;CLEAR PORTS 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PUT LINE UNIT IN BITSTUFF MODE 

:D0 THIS AFTER MODE iS SET 

;CONSECUTIVE 1°S COUNTER INIT TO 0 

;SET LINE UNIT LOOP 

;WAIT FOR OUT-READY 


:SET BITO IN PORTS 

eer Son IS INSTRUCTION, ROMCLK PC=5304 
:NEXT WORD IS me ROMCLK PC=5304 
LOAD GARBAGE C 


#O,RS —; LOAD CHARACTER IN RS FOR TYPEOUT 


PC ,OUTRDY 
R5,4(R1) 


PC,OCOR 
R3 
R5,R2 


:WAIT FOR OUT-READY 


;LOAD PORT4 WITH CHARACTER 

:NEXT WORD IS iNSTRUCTION, ROMCLK PC=5304 
LOAD OUT DATA 

sWAIT FOR OCOR TO SET 

:CLEAR BIT COUNTER 


LOAD CHARACTER IN R2 
TICKS TO SET UP TRANSMITTER 


2 :2 
#°B<O1111110>, TEMPS ;PUT FLAG CHARACTER IN TEMP3 


TEMPS 
65 


CLOCK FLAG ONCE 
;SHIFT SOFT FLAG 


:BR IF BIT 1S MARK 

;LOOK AT BIT WINDOW 
;BR IF OK , 
ERROR IN FLAG CHAR 


;LOOK AT BIT WINDOW 
:BR IF OK 


;ERROR IN FLAG CHAR 
: INC BIT COUNT 


FLAG DONE YET? 

:BR_ IF NO 

CLEAR BIT COUNT 

:SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
; SHIFT NEXT SOFTWARE BIT IN TO CARRY 


SEQ 0058 


0046 





DMF = =MACY11 30A(1052) 
DMF .P11 08-JUL-80 
2868 015016 103005 
2869 015020 004737 
2870 015024 10340 
2871 015026 104006 
2872 015030 000404 
2873 015032 004737 
2874 015036 103001 
2875 015040 104006 
2876 015042 

2877 015042 005203 
2878 015044 022703 
2879 015050 001357 
2880 015052 104415 
2881 015056 104414 
2882 015060 021264 
2883 015062 032761 
2884 015070 001401 
2885 015072 104034 
2886 015074 104400 
2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 015076 012737 
2902 015104 012737 
2903 

2906 015112 104412 
2905 015114 005061 
2906 015120 104414 
2907 015122 122117 
2908 015124 004737 
2909 015130 005037 
2910 015134 012711 
2911 015140 004737 
2912 015144 012761 
2913 015152 104414 
2914 015154 122111 
2915 015156 104414 
2916 015160 122110 
2917 015162 012705 
2918 015166 004737 
2919 015172 010561 
2920 015176 104414 
2921 015200 122110 
2922 015202 004737 
2923 015206 005003 


QO8-JUL-80 08:26 PAGE 60 
BASIC TRANSMITTER TESTS 


08:25 


032314 


032314 


000010 
000014 


000040 


000020 
015360 


000004 


033676 
034114 


0 
000001 
000125 


032500 
000004 


032346 


000004 


001226 
001216 


000004 


2$: 


3$: 


4$: 


TST20: 


C 2$ 
JSR PC,GETSI 
S 3$ 


3$ 
JSR Pc,GETSi 
3$ 


HLT 34 


iBR IF CARRY CLEAR 


:ERROR BIT WAS A SPACE 
;CONTINE WITH TEST 
GET THE WINDOW 

7BR IF BIT IS A SPACE 
;ERROR BIT WAS A MARK 


NEXT BIT 


DONE YET? 
;BR IF NO 
; CLOCK TRANSMITTER 14 MORE TICKS 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
=PORTG LU-13 
:RTS, SROULD BE CLEAR NOW 


ERROR, RTS NOT CLEAR 
;SCOPE THIS TEST 


peek eeeeeertetereeereeeeeeee TEST 20 teteeeeeenneererenerrernnes 
;*BITSTUFF TRANSMITTER TEST 

;*SINGLE CLOCK THE CHARACTER 125 

;*CHECK FLAG AND DATA IN THE BIT WINDOW 

;*VERIFY EACH BI? POSITION AS IT 

;*PASSES THE BIT WINDOW (SI BIT) 

;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


PT AAARHKHKKEKHKHHKHKKAKKAeKeeReReKAteeeeneteeneAnatesenaneeeeenee 


teem moe eoe ew eeoee 


MOV #20, TSTNO 
MOV #TST21, NEXT 


4(R1) 


JSR PC,CLRIO 
BITCON 

MOV #B1T11,(R1) 

JSR PC ,OUTRDY 

MOV #1,4(R1) 


;R1 CONTAINS BASE DMC11 ADDRESS 

;MASTER CLEAR DMC11 

CLEAR PORTS 

[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PUT LINE UNIT IN BITSTUFF MODE 

;D0 THIS AFTER MODE IS SET 

CONSECUTIVE 1°S COUNTER INIT TO 0 

:SET LINE UNIT LOOP 

WAIT FOR OUT- ns hs 

:SET BITO IN P 

ert Som IS INSTRUCTION, ROMCLK PC=5304 

iNEXT WORD IS oe ROMCLK PC=5304 
LOAD GARBAGE C 


MOV #125,R5 ;LOAD CHARACTER IN RS FOR. TYPEOUT 


JSR PC ,OUTRDY 
MOV R5,4(R1) 


JSR PC ,OCOR 
R3 


FOR OUT-READY 
;LOAD PORTS WITH CHARACTER 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD OUT DATA 


WAIT FOR OCOR TO SET 
;CLEAR BIT COUNTER 


SEQ 0059 


ime MACY11 30A(1052) O8-JUL-80 08:26 PAGE 61 
0047 CZDMF P11 08-JUL-80 08:25 BASIC TRANSMITTER TESTS 
2924 015210 010502 MOV R5S,R2 ao CHARACTER IN R2 
2925 015212 104415 000002 DATACLK, 2 "2 TICKS TO SET UP TRANSMITTER 
2926 015216 012737 000176 001252 OV #°B<01111110>, TEMPS :PUT FLAG CHARACTER IN TEMP3 
2927 015224 104415 000001 64$: DATACLK, 1 :CLOCK FLAG ONCE 
2928 015230 106037 001252 RORB TEMPS :SHIFT SOFT FLAG 
2929 015234 103405 BCS 65% :BR IF BIT IS MARK 
2930 015236 004737 032314 JSR PC ,GETSI ; LOOK AT BIT WINDOW 
2931 015242 103006 BCC 66$ R IF OK 
2932 015244 104026 HLT 26 “ERROR IN FLAG CHAR 
2933 015246 000404 BR 66$ 
2934 015250 004737 032314 65$: JSR PC,GETSI ;LOOK AT BIT WINDOW 
2935 015254 103401 BCS 66$ “BR IF OK 
2936 015256 104026 HLT 26 sERROR IN FLAG CHAR 
2937 015260 005203 64$: INC R3 INC BIT COUNT 
2938 015262 022703 000010 CMP #10,R3 sFLAG DONE YET? 
2939 015266 001356 BNE 64$ ;BR IF NO 
2940 015270 005003 CLR R3 ;CLEAR BIT COUNT 
2941 015272 104415 000001 1$: DATACLK, 1 ;SHIFT NEXT BIT IN THE WINDOW (Si BIT) 
2942 015276 106002 RORB R2 SHIFT NEXT SOFTWARE BIT IN TO CARRY 
2943 015300 103005 BCC 2$ :BR IF CARRY CLEAR 
2944 015302 004737 032314 JSR PC,GETSI GET THE WINDOW 
2945 015306 103406 BCS 3$ ;BR IF BIT IS A MARK 
2946 015310 104006 HLT 6 ERROR BIT WAS A SPACE 
2947 015312 000404 BR 3$ sCONTINE WITH TEST 
2948 015314 004737 032314 2$: JSR PC,GETSI GET THE WINDOW 
2949 015320 103001 BCC 3$ ;BR IF BIT IS A SPACE 
2950 015322 104096 HLT 6 ;ERROR BIT WAS A MARK 
2951 015324 3$: 
2952 015324 005203 INC R3 NEXT BIT 
2953 015326 022703 000010 CMP #10,R3 ; DONE 
2954 015332 001357 BNE 1$ ;BR IF N 
2955 015334 104415 000014 DATACLK, 14 CLOCK TRANSMITTER 14 MORE TICKS 
2956 015340 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2957 015342 021264 021264 sPORT4 LU-13 
2958 015344 032761 0000460 990004 BIT #B1TS5,4(R1) “RTS SROULD BE CLEAR NOW 
2959 015352 001401 BEQ 4% sBR IF YES 
2960 015354 104034 HLT 34 sERROR, RTS NOT CLEAR 
2961 015356 104400 4$: SCOPE SCOPE THIS TEST 
2962 
2963 
2964 
2965 peeeeeeeeetererererereerener TEST 2] rerteereerererenreneneeeers 
2966 S*BITSTUFF TRANSMITTER TEST 
2967 >*SINGLE CLOCK THE CHARACTER 252 
2968 :*CHECK FLAG AND DATA IN THE BIT WINDOW 
2969 T*VERIFY EACH BIT POSITION AS IT 
2970 s*PASSES THE BIT WINDOW (S! GIT) 
2971 :*#0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
2972 PI AAAeRAR AeA ee eee ere eteeeneentenenetteneneteeteereereesereneene 
2973 
2974 TEST 21 
2975 jowesocccocesce 
2976 015360 012737 000021 001226 ITST21: MOV #21, TSTNO 
2977 015366 012737 015642 001216 MOV #1ST22,NEXT 
2978 :R1 CONTAINS BASE DMC11 ADDRESS 
2979 015374 104412 MSTCLR sMASTER CLEAR DMC11 








SEQ 0060 





CZDMF MACY17 30A(1052) O8-JUL=80 08:26 PAGE 62 
) 00468 CZ2DMF P11 08-JUL-80 08:25 BASIC TRANSMITTER TESTS SEQ 0061 
2980 015376 005061 000004 CLR 4(R1) sCLEAR PORTS 
2981 015402 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2982 015404 122117 122117 ;PUT LINE UNIT IN BITSTUFF MODE 
2983 015406 004737 033676 JSR PC,CLRIO D0 THIS AFTER MODE IS SET 
984 015412 005037 034114 (LR BITCON :CONSECUTIVE 1°S COUNTER INIT TO C 
2985 015416 012711 004000 MOV #BIT11,(R1) SET LINE UNIT LOOP 
2986 015422 004737 032500 JSR PC ,OUTRDY sWAIT FOR OUT-READY 
2987 015426 012761 000001 000004 MOV #1,4(R1) ;SET BITO IN PORTS 
2988 015434 104414 ROMCLK iNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2989 015436 122111 122111 SET SOM 
2990 015440 104414 ROMCLK :NEXT SORD IS INSTRUCTION, ROMCLK PC=5304 
2991 015442 122110 122110 LOAD GARBAGE CHAR 
2992 015444 012705 000252 MOV #252,R5 ;LOAD CWARACTER IN RS FOR TYPEOUT 
2993 015450 004737 032500 JSR PC ,OUTRD WAIT FOR QUT-READY 
2994 015454 010561 000004 MOV RS, CeRI). TOAD PORTS WITH CHARACTER 
| 2995 015460 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2996 015462 122110 122110 [LOAD OUT DATA 
2997 015464 004737 032346 JSR PC,OCOR WAIT FOR OCOR TO SET 
2998 015470 005003 CLR R3 CLEAR BIT COUNTER 
2999 015472 010502 MOV R5,R2 LOAD CHARACTER IN R2 
3000 015474 104415 000002 DATACLK, 2 ;2 TICKS TO SET UP TRANSMITTER 
3001 015500 012737 000176 001252 MOV w<O1111 1100, TEMP3 ;PUT FLAG CHARACIER IN TEMP3 
3002 015506 104415 000001 64$: DATACLK, sCLOCK FLAG ONCE 
3003 015512 106037 001252 RORB TEMP3 sSHIFT SOFT FLAG 
| 3004 015516 103405 BCS 65$ ‘BR IF BIT IS MARK 
3005 015520 004737 032314 JSR PC ,GETSI ;LOOK AT BIT WINDOW 
|’ 3006 015524 103006 BCC 668 7BR IF OK 
3007 013396 104026 HLT 26 ERROR IN FLAG CHAR 
3008 015530 000404 AB 66$ 
3009 015532 004737 032314 65$: JSR PC,GETSI LOOK AT BIT WINDOW 
3010 015536 103401 BCS 66$ :BR IF OK 
3011 015540 104026 HLT 26 ERROR IN FLAG CHAR 
3012 015542 005203 66$: INC R3 ;INC BIT COUNT 
3013 015544 022703 000010 CMP #10,R3 [FLAG DONE YET? 
3014 015550 001356 BNE 64$ ;BR IF NO 
3015 015552 005003 CLR R3 :CLEAR BIT COUNT 
3016 015554 104415 000001 1$: DATACLK, 1 SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
3017 015560 106002 RORB R2 ;SHIFT NEXT SOFTWARE BIT IN TO CARRY 
3018 015562 103005 BCC 2$ ;BR IF CARRY CLEAR 
3019 015564 004737 032314 JSR PC,GETSI ;GET THE WINDOW 
3020 015570 103406 BCS 3$ ;BR IF BIT IS A MARK 
3021 015572 104006 HLT 6 sERROR BIT WAS A SPACE 
3022 015574 000404 ? BR 3$ ;CONTINE WITH TEST , 
3023 015576 004737 032314 z$: JSR PC,GETS! ;GET THE WINDOW 
3024 015602 103001 BCC 3$ ;BR IF BIT IS A SPACE 
3025 015604 104006 HLT 6 sERROR BIT WAS A MARK 
3026 31 2606 3$: 
3027 015606 005203 INC R3 sNEXT BIT 
3028 015610 022703 000010 CMP #10,R3 DONE YET? 
3029 015614 001357 BNE 1$ 7BR IF NO 
3030 015616 104415 000014 DATACLK, 14 :CLOCK TRANSMITTER 14 MORE TICKS 
3031 015622 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3032 015624 021264 021264 sPORTS LU-13 
3033 015626 032761 000040 000004 BIT #B1T5,4(R1) rRTS sROULD BE CLEAR NOW 
3034 015634 001401 BEQ 4$ :BR IF YES 
3035 015636 104034 HLT 34 ;ERROR, RTS NOT CLEAR 
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os 


BASIC TRANSMITTER TESTS 


4$: 


TST22: 


64$: 


65$: 


66$: 


SCOPE 


;SCOPE THIS TEST 


peeeeeeeeetererereeeereeeeee TEST 22 eeeaKeKeeARHeeReeKeeeeHeeee 


;*B1lT STUFF TEST 
s*THIS TEST CHECKS ZERO BIT STUFFING OF 
3* THE TRANSMITTER IN THE BIT WINDOW 


Pie eeeeeeeeeeteeeererttreteteeeeAKeeKeneeeereeeteaeeateeeeeeeete 


; esr 


MOV 
MOV 
MSTCLR 


ROMCLK 





22 
#22,TSTNO 
#TST23,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER ore DMC11 
4(R1) ;CLEAR PORTS 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Neevie sPUT LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO 3b0 oy AFTER MODE IS SET 
MOV yitit. (R1) ;SET LU LOOP 
JSR at OUTRDY SALT” FOR OUT-READY 
#1.4(R1) SET BITO IN PORTS 
NEXT word Is INSTRUCTION, ROMCLK PC=5304 
122111 :SET SOM 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ; LOAD GARBAGE CHAR 
JSR R5,MESLD LOAD OUT SILO DATA 
STUFDT :MESSAGE- "ADDRESS 
20. sNUMBER OF CHARACTERS 
MOV #STUFDT,RS *R4=CHARACTER POINTER 
CLR R3 :R3= BIT COUNTER 
MOV #6,R0 ‘BIT COUNTER FOR FLAG CHARACTER 
DATACLK, 2 ;SET UP TRANSMITTER 
#°B<01111110>, TEMP3 ;PUT FLAG CHARACTER IN TEMP3 
3 1 CL OCK FLAG ONCE 
TEMP3 sSHIFT SOFT FLAG 
65$ ‘BR IF BIT IS MARK 
PC,GETSI LOOK AT BIT WINDOW 
66$ ;BR IF OK 
. ERROR IN FLAG CHAR 
PC,GETSI ts AT BIT WINDOW 
66% :BR IF OK 
26 ERROR IN FLAG CHAR 
R3 ;INC BIT COUNT 
#10,R3 : FLAG DONE YET? 
64% 7BR IF NO 
R3 ;CLEAR BIT COUNT 
MOV #20.,R0 ;RO=CHARACTER COUNTER 
CLR BITCON ;CLEAR BIT STUFF COUNTER 
MOVB (R4)+,R5 LOAD CHARACTER IN RS 
MOV R5,R sLOAD CHARACTER IN R2 
DATACLK, 1 ;SHIFT DTAT ONCE 
RORB 4 SHIFT SOFT DATA 
BCS 5$ :BR IF CARRY SET 


CLEAR BIT STUFF COUNTER 


SFQ 0062 


. 3 


CZDMF  MACY11 30A(1052) O8-JUL-80 08:26 PAGE 64 
0050 CZDMF.P11 © 08=JUL=80 08:25 BASIC TRANSMITTER TESTS SEQ 0063 
| 3092 016054 004737 032314 JSR PC ,GETSI ;LOOK AT WINDOW 
| 3093 016060 103010 BCC 6$ :BR IF SPACE 
3094 016062 104006 HLT 6 ;ERROR, WINDOW WAS A MARK 
3095 016064 000406 ae 6$ ; CONTINUE 
3096 016066 005237 034114 5$: INC BITCON :ADD 1 TO BIT STUFF COUNTER 
3097 016072 004737 032314 JSR PC,GETSI :LOOK AT WINDOW 
3098 016076 103401 BCS 6$ ;BR IF MARK 
3099 016100 104006 HLT 6 sERROR, WINDOW WAS A SPACE 
| 3100 016102 022737 000005 034114 6$: CMP #5,BITCON ;HAVE THERE BEEN 5 1'S IN A ROW 
| 3101 016110 001010 BNE 7 ;BR IF NO 
3102 016112 005037 034114 CLR BITCON :IF YES CLR BIT STUFF COUNTER 
3103 016116 104415 000001 DATACLK, 1 :AND CLOCK TRANSMITTER ONCE 
3104 016122 004737 032314 JSR PC,GETSI :CHECK WINDOW FOR A ZEOR STUFF!! 
3105 016126 103001 BCC 7$ ;BR IF WINDOW IS A SPACE 
3106 016130 104030 HLT 30 :ERROR, TRANSMITTER DID NOT STUFF A ZERO 
3107 016132 005203 7$: INC R3 ;BUMP BIT COUNTER 
| 3108 016134 022703 000010 CMP #10,R3 ;DONE THIS CHARACTER YET? 
3109 016140 001337 BNE 4$ ;BR IF NO 
3110 016142 005003 CLR R3 ;RESTART BIT COUNTER AT ZERO 
3111 016144 005300 DEC RO :DEC CHARACTER COUNTER 
3112 016146 001332 BNE 3$ :BR IF NOT DONE YET 
ti3 016150 104400 8$: SCOPE :SCOPE THIS iEST 
3118 on 
3116 peteneererereererererereeeae [EST 23 reteeeeeenerereeenrerernees 
3117 :*BITSTUFF TRANSMITTER TEST 
3118 :*SINGLE CLOCK THE CHARACTER 377 
3119 :*CHECK FLAG AND DATA IN THE BIT WINDOW 
3120 :*VERIFY EACH BIT POSITION AS IT 
3121 :*PASSES THE BIT WINDOW (SI BIT) 
3122 :*O0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
3123 PIMAAAAAAKAET KATA ATA eee eK eee eK AAA etek Ket KAtKeteKteeKeeeeee Aes 
3124 
e182 ; west 
3127 016152 012737 000023 001226 TST23: MOV #23, 1STNO 
3128 016160 012737 016460 001216 MOV #TST24 NEXT 
3129 ;R1 CONTAINS BASE DMC11 ADDRESS 
| 3130 016166 104412 MSTCLR :MASTER CLEAR DMC11 
3131 016170 005061 000004 CLR 4(R1) :CLEAR PORT4 
| 3132 016174 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3133 016176 122117 122117 :PUT LINE UNIT IN BITSTUFF MODE 
| 3134 016200 004737 033676 JSR PC, CLRIO :D0 THIS AFTER MODE IS SET -- 
3135 016204 005037 034114 CLR BITCON :CONSECUTIVE 1°S COUNTER INIT TO 0 
3136 016210 012711 004000 MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
3137 016214 004737 032500 JSR PC ,OUTRDY ;WAIT FOR OUT-READY 
3138 016220 012761 000001 000004 MOV #1,4(R1) :SET BITO IN PORTS 
| 3139 016226 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 3140 016230 122111 122111 ;SET SOM! 
3141 016232 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 3142 016234 122110 122110 ;LOAD GARBAGE CHAR 
3143 016236 012705 000377 MOV #377,R5 ;LOAD CHARACTER IN RS FOR TYPEOUT 
| 3144 016242 010537 016414 MOV R5,5$ ;LOAD CHAR FOR STUFF CHECK 
3145 016246 004737 032500 JSR PC ,OUTRDY ;WAIT FOR OUT-READY 
3146 016252 010561 000004 MOV R5,4(R1) :LOAD PORT4 WITH CHARACTER 
3147 016256 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 





EEE 


mM 5 
CZDMF MACY11 30A(1052) O8-JUL-80 )8:26 PAGE 65 
CZDMF .P11 08-JUL-80 08:25 BASIC TRANSMITTER TESTS SEQ 0064 
3148 016260 122110 122110 ;LOAD OUT DATA 
3149 016262 004737 032346 JSR PC,OCOR ;WAIT FOR OCOR TO SET 
3150 016266 005003 CLR R3 ;CLEAR BIT COUNTER 
3151 016270 010502 MOV R5,R2 ;LOAD CHARACTER IN R2 
3152 016272 104415 000002 DATACLK, 2 32 TICKS TO SET UP TRANSMITTER 
3153 016276 012737 000176 001252 MOV #*B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3 
3154 016304 104415 000001 64$: DATACLK, 1 ;CLOCK FLAG ONCE 
3155 016310 106037 001252 RORB TEMP3 ;SHIFT SOFT FLAG 
3156 016314 103405 BCS 65$ ;BR IF BIT IS MARK 
3157 016316 004737 032314 JSR PC ,GETSI ;LOOK AT BIT WINDOW 
3158 016322 103006 BCC 66$ BR IF OK 
3159 016324 104026 HLT 26 ;ERROR IN FLAG CHAR 
3160 016326 000404 BR 66$ 
3161 016330 004737 032314 65$: JSR PC,GETSI ;LOOK AT BIT WINDOW 
3162 016334 103401 BCS 66$ ;BR IF OK 
3163 016336 104026 HLT 26 ;ERROR IN FLAG CHAR 
3164 016340 005203 66$: INC R3 INC BIT COUNT 
3165 016342 022703 000010 CMP #10,R3 sFLAG DONE YET? 
3166 016346 001356 BNE 64% ;BR IF NO 
3167 016350 005003 CLR R3 ;CLEAR BIT COUNT 
3168 016352 005037 034114 CLR BITCON ;CLEAR STUFF COUNT 
3169 016356 104415 000001 1$: DATACLK, 1 ;SHIFT NEXT BIT IN THE WINDOW (Si BIT) 
3170 016362 106002 RORB R2 sSHIFT NEXT SOFTWARE BIT IN TO CARRY 
3171 016364 103005 BCC 2$ ;BR IF CARRY CLEAR 
3172 016366 004737 032314 JSR PC,GETSI ;GET THE WINDOW 
3173 016372 103406 BCS 3$ 3;BR IF BIT IS A MARK 
3174 016374 104006 HLT 6 sERROR BIT WAS A SPACE 
3175 016376 000404 BR 3$ ;CONTINE WITH TEST 
3176 64 004737 032314 2$: JSR PC,GETSI ;GET THE WINDOW 
3177 016404 103001 BCC 3$ ;BR IF BIT IS A SPACE 
3178 016406 104006 HLT 6 ;ERROR BIT WAS A MARK 
3179 016410 3$: 
3180 016410 004537 033776 JSR RS,STFFCK ;CHECK FOR BIT. STUFF 
3181 016414 000377 S$: 377 ;DATA CHARACTER 
3182 016416 000001 1 ;SHIFT COUNT 
3183 016420 010237 016414 MOV R2,58 ;LOAD CHAR FOR STUFF CHECK 
3184 016424 005203 INC R3 NEXT BIT 
3185 016426 022703 000010 CMP #10,R3 ;DONE YET? 
3186 016432 001351 BNE 1$ ;BR IF NO 
3187 016434 104415 000014 DATACLK, 14 ;CLOCK TRANSMITTER 14 MORE TICKS 
3188 016440 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3189 016442 021264 * 021264 ;PORT4 LU-13 
3190 016444 032761 000040 000004 BIT #B1T5,4(R1) ;RTS SROULD BE CLEAR NOW 
3191 016452 001401 BEQ 4$ ;BR IF YES 
3192 016454 104034 HLT 34 ;ERROR, RTS NOT CLEAR 
3193 016456 104400 4$: SCOPE ;SCOPE THIS TEST 
HE 
3196 peeeeeeeerererererereeerenee TEST 26 eeeneeererenrerernerererere 
3197 s*BITSTUFF TRANSMITTER TEST 
3198 s*SINGLE CLOCK A BINARY COUNT PATTERN 
3199 s*VERIFY EACH BIT POSITION AS IT 
3200 > *PASSES THE BIT WINDOW (SI BIT) 
3201 :*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
3202 ;*AND RS CONTAINS THE CHARACTER THAT FAILED 
3203 ps RMAMAAARAR EAA Kee eeeeeKeKeKeeKeeeeteeteeeH Keereneeeeererereee 
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38° JUL-80 08: PAGE 66 


BASIC TRANSMITTER TESTS 


001226 TST24: 
001216 


000004 


001252 


65$: 


668: 


4$: 


1$: 


3; Vest 


MOV 
MOV 
MSTCLR 
C 


24 


N 5 


#24,TSTNO 
#TST25,NEXT 


4(R1) 


PC,CLRIO 


BITCON 
#BIT11,¢ 
R3 


R4 
R5 


R1) 


PC ,OUTRDY 


#1 ,4(R1) 


PC ,OUTRDY 


R4,4(R1) 


R4 


PC ,OUTRDY 


R4,4(R1) 


PC ,OCOR 


;R1_ CONTAINS a rr ADDRESS 
;MASTER CLEAR DMC11 

;CLEAR PORTS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


IS SET 
“CONSECUTIVE 1 "S COUNTER INIT TO 0 
;SET LINE UNIT LOOP 
:R3 CONTAINS BIT COU 


NT 
7R4 CONTAINS CHAR 10 BE LOADED IN SILO 
3R5 CONTAINS wp ge CURRENTLY BEING SHIFTED OUT 


;WAIT FOR te penta 
;SET BITO IN P 
:NEXT a Is INSTRUCTION, ROMCLK PC=5304 
NEXT WORD IS ites ROMCLK PC=5304 
;LOAD GARBAGE CHA 
:WAIT FOR OUT-READY 
;LOAD PORT4 WITH CHARACTER 
:NEXT WORD IS INSTRUCTION, RUMCLK PC=5304 
;LOAD OUT DATA 
; INCREMENT TO NEXT CHARACTER 
:WALi FOR OUT-READY 
;LOAD PORT4 WITH CHARACTER 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD OUT DATA 
;WAIT FOR OCOR TO SET 
TO SET UP TRANSMITTER 


;2_TICKS 
#*BCOIITIT10>, TEMPS 3 ‘PUT FLAG CHARACTER IN TEMP3 
L 


"TEMPS 
65$ 


OCK FLAG ONCE 
sSHIFT SOFT FLAG 
:BR IF BIT IS MARK 
—, AT BIT WINDOW 


IF OK 
ERROR IN FLAG CHAR 
;LOOK AT BIT WINDOW 
R IF OK 


SERROR IN FLAG CHAR 
;INC BIT COUNT 


[FLAG DONE YET? 


;BR_ IF NO 

;CLEAR BIT COUNT 

;CLEAR BIT STUFF COUNTER 
CLEAR BIT COUNTER 


[LOAD CHARACTER IN R2 


;LOAD CHAR FOR STUFF CHECK 


SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
SHIFT NEXT SOFTWARE BIT IN TO CARRY 
BR IF CARRY CLEAR 

;GET THE WINDOW 


SEQ 0065 


CZ 
CZ2DMF .P11 


2 


o 
pesejelelejelejejejleojejlejlelejlejlq) 


PE. AAA AAI AI AI Ltt 
AWWAA WII A tt 

Od et et sSz 

w Pantene bs w 


016720 


017010 


017012 
017020 


333 
Ser 


—> —+ + —* — 4 —4 — 2 -* — 4) — 4) — 4) -- ss 


MACY11 apy B 
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103406 


104006 
004537 


104400 
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032314 


033776 


016742 
000010 


032500 
000004 


000400 


000025 
017300 


000004 


033676 
004000 
000005 


032500 
000001 


032500 
000004 


2s: JSR 


3$: 
6$: 


5$: SCOPE 


3$ ;BR IF BIT IS A MARK 
6 ;ERROR BIT WAS A SPACE 
3$ ;CONTINE WITH TEST 
PC,GETSI 3GET THE WINDOW 
3$ ;BR IF BIT IS A SPACE 
6 ;ERROR BIT WAS A MARK 
RS,STFFCK CHECK FOR O1T STUFF 
‘DATA CHARACTER 
SHIFT COUNT 
R2,68 [LOAD CHAR FOR STUFF CHECK 
R3 NEXT BIT 
10,R3 DONE YET? 
;BR IF NO 
R4 NEXT CHARACTER 
PC ,OUTRDY ;WAIT FOR OUT-READY 
R4,4(R1) ;LOAD PORT4 WITH CHARACTER 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:LOAD OUT DATA 

R5 ;NEXT CHARACTER 

aay ++ YET? 


IF NO 
:SCOPE THIS TEST 


sR tteeeeeteteenetarererinkae TES! OS eeanteeneweneneenrenetenere 


**MULTIPLE FLAG AND TRANSMITTER ABORT TEST 
:*LOAD SILO WITH 5 FLAGS AND A CHAR (000) 
S*VERIFIY IN THE BIT WINDCW THAT THE FLAGS 
*AND DATA ARE CORRECT AND FOLLOWED BY AN ABORT 

S*SEQUENCE (8 CONTIGUOUS 1'S) 


: ‘2D Dee RRRRRRRERE REESE EEE SEER ER ECE ESS S CECE SOOO OLOOCLOL SS 


TST25: MOV 
e 


MSTCLR 
ROMCLK 


1$: 
ROMCLK 
ROMCLK 


25 
#25,TSTNO 
#TST26,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
i MASTER att DMC 11 
CLR 4(R1) CLEAR PORTS 
sNEXT WORD is INSTRUCTION, ROMCLK PC=5504 
122117 ;PUT LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO a THIS AFTER MODE IS SET 
MOV weiTti,(R1) SET LU LOOP 
MOV #5 ,RO FLAG COUNT 
CLR R3 ;CLEAR BIT COUNTER 
JSR PC ,OUTRDY WAIT FOR OUT-READY 
MOV #1,4(R1) ;SET BITO IN PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 SET SOM! 
;NEXT WORD IS He Nay Bh bees ROMCLK PC=5304 
122110 LOAD —— CHA 
DEC RO COUN 
BNE 1$ LOAD ANOTHER 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
CLR 4(R1) ZCLEAR PORTS 


en senses 


SEQ 0066 


RRR sess peesestsseestsstesessnenssstnsnnesmesnsis ss 


0054 






NN SS sesso 
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3316 017114 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3317 017116 = 122110 122110 ;LOAD A ZERO 

3318 017120 004737 032346 JSR PC,OCOR iW 

3319 017124 012700 000005 MOV #5 ,RO ;RO_ = FLAG COUNT 

za50 Hat 104415 000002 rr DATACLK, 2 :SET UP TRANSMITTER 

3322 017134 012737 000176. 001252 MOV Drbocsuia tine TEMP3 ;PUT FLAG CHARACTER IN TEMP3 
3323 017142 104415 000001 64$: DATACLK, ;CLOCK FLAG ONCE 

3324 017146 106037 001252 RORB TEMPS SHIFT SOFT FLAG 

3325 017152 103405 BCS 65% :BR IF BIT 1S MARK 

3326 017154 004737 032314 JSR PC ,GETSi ;LOOK AT BIT WINDOW 

3327 017160 103006 BCC 66% :BR IF OK 

3328 017162 104026 HLT 26 ;ERROR IN FLAG CHAR 

3329 017164 000404 BR 66$ 

3330 017166 004737 032314 65$: JSR PC,GETSI ;LOOK AT BIT WINDOW 

3331 017172 103401 BCS 66% ;BR IF OK 

3332 017174 104026 HLT 26 sERROR IN FLAG CHAR 

3333 017176 005203 66$: INC R3 ;INC BIT COUNT 

3334 017200 022703 000010 CMP #10,R3 :FLAG DONE YET? 

3335 017204 001356 BNE 64$ ;BR IF NO 

3336 017206 005003 CLR R3 :CLEAR BIT COUNT 

3337 017210 005300 DEC RO :DEC COUNT 

3338 017212 001350 BNE 2$ :BR IF NOT DONE 

3339 017214 005003 CLR R3 R3 = BIT COUNT 

3340 017216 005005 CLR RS TRS = "EXPECTED" 

3341 017220 104415 000001 38: DATACLK, 1 :CLOCK ONCE 

3342 017224 004737 032314 JSR PC,GETSI :GO LOOK AT WINDOW 

3343 017230 103001 BCC 4$ ;BR IF A SPACE 

3344 017232 104006 HLT 6 ;ERROR, A MARK WAS SEEN 
3345 017234 005203 4$: * INC R3 ;INC BIT COUNT 

3346 017236 022703 000010 CMP #10,R3 :DONE YET? 

3347 017242 001366 BNE 3$ BR IF NO 

3348 017244 005003 CLR R3 CLEAR BIT COUNT 

3349 0172466 012705 000377 MOV #377,R5 7R5 = ‘EXPECTED’ 

3350 017252 104415 000001 5$: DATACLK, 1 :CLOCK ONCE 

3351 017256 004737 032314 JSR PC,GETS! ;LOOK AT WINDOW 

3352 017262 103401 BCS 6$ :BR IF A MARY 

3353 017264 104033 HLT 33 ERROR, A SPACE WAS SEEN 
3354 017266 005203 6$: INC k3 INC BIT COUNT 

3355 017270 022703 000010 CMP #10,R3 DONE YET? 

3356 017274 001366 BNE 5$ :BR IF NO 

See5 017276 104400 SCOPE ;SCOPE THIS TEST 

3359 

3360 petkeneeeteeereretereeereeee TEST 26 sheen ereeeneeereenreeterene 
3361 ;*LEADING ZEROS TEST 

3362 :*VERIFY THAT THE SETTING OF SOM AND EOM TOGETHER 
3363 ;*AND THEN SOM ALONE WILL GENERATE 16 LEADING ZEROS 
3364 ;*AND A FLAG, THE CHECK IS MADE USING THE BIT WINDOW 
3365 PIA MAAAAAAT AAA ATER HHA AH AAR HRATHEAAKAR AKA T ERT AH RATA eee 
3366 

350 3; «6VEST 26 

3369 017300 012737 000026 001226 15126: MOV #26, TSTNO 

3370 017306 012737 017520 001216 MOV #TST27, NEXT 

3371 :R1 CONTAINS BASE DMC11 ADDRESS 


SEQ 0067 


D 6 
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3372 017314 104412 MSTCLR ;MASTER Ate DMC 11 
3373 017316 005061 000004 CLR 4(R1) CLEAR PORT4 
3374 017322 104414 ROMCLK ;NEXT WORD s te Mia ROMCLK PC=5304 
3375 017324 122117 122117 P ;SET TO BITSTUFF MODE 
3376 017326 004737 033676 JSR PC,CLRIO ;00 ire AFTER MODE IS SET 
3377 017332 012711 004000 MOV #BIT11,(R1) :SET LU LOOP 
3378 017336 004737 032500 JSR PC ,OUTRDY WAIT” FOR OUTRDY 
3379 017342 012761 000003 000004 MOV #3,4(R1) ;LOAD PORTS 
3380 017350 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3381 017352 122111 122111 ;SET SOM & EOM 
3382 017354 104414 ROMCLK sNEXT WORD | IS INSTRUCTION, ROMELK PC=5304 
3383 017356 122110 122110 ARBAGE rman CTER 
3384 017360 012761 000001 600004 MOV #1 ,4(R1) OAD PORT 
3385 017366 104414 ROMCLK NEXT woRD 1S INSTRUCTION, ROMCLK PC=5304 
3386 017370 122111 122111 ;SET SOM 
3387 017372 104414 ROMCLK SNEXT WORD 1S hs « ROMCLK PC=5304 
3388 017374 122110 122110 ;GARBAGE CHA 
3389 017376 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3390 017400 122110 122110 ; GARBAGE CHAR 
3391 017402 004737 032346 JSR PC,OCOR ;WAIT FOR OCOR 
3392 017406 005000 CLR RO ;RO_ = BIT COUNT 
3393 017410 104415 000002 DATACLK,2 iSET UP TRANSMITTER 
3394 017414 104415 000001 1$: DATACLK,1 ;SINGLE CLOCK TRANSMITTER 
3395 017420 004737 032314 JSR PC ,GETSI ;LOOK AT BITWINDOW 
3396 017424 103001 BCC +4 
3397 017426 104041 HLT 41 ;ERROR WINDOW WAS A MARK 
3398 017430 005200 INC RO 
399 017432 022700 000020 CMP #16.,R0 716 ee YET? 
3400 017436 001366 ns 1$ :BR NO 
3401 017440 005003 CL R3 ;R3 = ‘att COUN 
3402 017442 012737 000176 001252 MOV #°B<O1111110>, TEMP3 ;PUT FLAG CHARACTER IN TEMPS 
3403 017450 104415 000001 64$: DATACLK, 1 :CLOCK FLAG ONCE 
3404 017454 106037 001252 RORB TEMP3 ;SHIFT SOFT FLAG 
3405 017460 103405 BCS 65$ :BR IF BIT IS MARK 
3406 017462 004737 032314 JSR PC,GETSI ;LOOK AT BIT WINDOW 
3407 017466 103006 BCC 66% ;BR IF OK 
3408 017470 104026 HLT 26 ;ERROR IN FLAG CHAR 
3409 017472 000404 BR 66% 
3410 017474 004737 032314 65$: JSR PC,GETSI ;LOOK AT BIT WINDOW 
3411 017500 103401 BCS 66$ ;BR IF OK 
3412 017502 104026 HLT 26 ;ERROR IN FLAG CHAR 
3413 017504 005203 66$: INC R3 INC BIT COUNT 
3414 017506 022703 000010 CMP #10,R3 SFLAG DONE YET? 
3415 017512 001356 BNE 64% ;BR IF NO 
3416 017514 005003 CLR R3 ;CLEAR BIT COUNT 
ath 017516 104400 SCOPE ;SCOPE THIS TEST 
3419 
3420 peeeeeereeeeeerereneereenene TEST 27 teeeeeeeereneeeeeeerererety 
3421 > *BITSTUFF STRIP FLAG TEST 
3422 :*SET LU LOOP, SINGLE STEP 5 FLAGS, 
3425 S*VERIFY THAT IN ACTIVE DOES NOT SET 
3424 PA MAARACA AHA EH Hee eee ete eKAeReeeAeeKAeeeeeeeneeeeeterereeress 
3425 


3426 : TEST 27 


0056 


CZDMF 
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3428 017520 012737 
3429 017526 012737 
3430 
3431 017534 104412 
3432 017536 005061 
3433 017542 104414 
3434 017544 122117 
3435 017546 004737 
3436 017552 012711 
3437 017556 012702 
3438 017562 004737 
343$ 017566 000005 
3440 017570 104415 
3441 017574 104414 
3442 017576 021244 
3443 017600 016104 
3444 017604 042704 
3445 017610 005005 
3446 017612 120504 
3447 017614 001401 
3448 017616 104040 
3449 017620 104400 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 017622 012737 
3461 017630 012737 
3462 
3463 017636 104412 
3464 017640 005061 
3465 017644 104414 
3466 017646 122117 
3467 017650 004737 
3468 017654 012711 
3469 017660 012702 
3470 017664 004737 
3471 017670 000005 
3472 017672 104415 
3473 017676 104414 
3474 017700 021244 
3475 017702 016104 
3476 017706 042704 
3477 017712 012705 
3478 017716 120504 
3479 017720 001401 
3480 017722 104040 
3481 017724 104400 
3482 


000027 001226 
001216 


017622 


000004 


033676 


032364 
000054 


000004 
000277 


000030 
017726 


000004 


033676 
004000 
000012 
032364 


000064 
000904 


000277 
000100 


001226 
001216 
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BASIC RECEIVER TESTS 


TST27: 


1S$1730: 


MOV 
MOV 


MSTCLR 
CLR 


ROMCLK 
122117 
JSR 
MOV 
MOV 
JSR 

5 


DATACLK, 


#27,TSTNO 
#TST30,NEXT 


4(R1) 


PC,CLRIO 
#BIT11,(R1) 
#12,R2 
PC,SYNC 


54 


4(R1) ,R4 


:PUT "EXPECTED" 
:I1S ACTIVE CLEAR? 

;BR IF YES 

;ERROR ACTIVE IS NOT CLEAR 
;SCOPE THIS TEST 


;R1 CONTAINS BASE be ADDRESS 

:MASTER CLEAR DMC1 

;CLEAR PORTS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT LINE UNIT IN BITSTUFF MODE 

;D0 THIS AFTER MODE IS SET 


:SET LU LOOP 
;SAVE LU REG FOR TYPEOUT 
sSINGLE CLOCK 5 SYNC CHARACTERS 


pNEXT a 1S INSTRUCTION, ROMCLK ©C=5304 
;PORTS u12 
PuT POUND" IN RG 

“CLEAR UNWANTED BITS 
IN R5 


-eeeeheeeeereeeeeereeeteeene TEST 30 xeeeneeterereereenererrenes 


S*BITSTUFF IN ACTIVE TEST 


:*SET LU LOOP, SINGLE STEP 5 FLAGS AND A NON-FLAG (301) 
s*VERIFY THAT IN ACTIVE IS SET 


PEMA AAAAAHERETEHAEREEAEEEEHEREAAEAAAHREAHRE EAHA AAAKARKAAH ERE AES 


TEST 


MOV 
MOV 
MSTCLR 


DATACLK, 


30 
#30,1STNO 
#TST31,NEXT 


PC,CLRIO 
#B1T11,(R1) 
#12,R2 
PC,SYNC 


;R1_ CONTAINS — DMC11 ADDRESS 
;MASTER CLEAR DMC11 

;CLEAR PORTS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT LINE UNIT IN BITSTUFF MODE 

:d0 ry AFTER MODE IS SET 

;SET LU LOOP 

7 SAVE tu REG FOR TYPEOUT 

:SINGLE CLOCK 5 SYNC CHARACTERS 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;PORT4 LUI2 

;PuT POUND" IN R4 

CLEAR wants BITS 
“EXPECTED'’ 

71S actiie veers 

“BR IF YES 


IN RS 


[ERROR ACTIVE IS NOT SET 
:SCOPE THIS TEST 


SEQ 0069 


F 6 
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3484 pt eeeeeeererererterterereere TEST 3] aeeeeereerereterrerereerere 
3485 ;*BITSTUFF IN ACTIVE TEST 
3486 ;*SET LINE UNIT LOOP,SINGLE STEP ONE FLAG AND A CHAR (301) 
3487 *VERIFY THAT IN ACTIVE IS SET 
7488 *: RAHAT A THERE TEER HEREHHERERE THERE REREERERER EEE ER EEEe 
3489 
3490 ; TEST 31 
3491 prt te roc ecenee 
3492 017726 012737 000031 001226 TS131: MOV #31,TSTNO 
3493 017734 012737 020064 001216 MOV #TST32,NEXT 
3494 3R1 CONTAINS BASE DMC11 ADDRESS 
3495 017742 104412 MSTCLR >MASTER CLEAR DMC11 
3496 017744 005061 000004 CLR 4(R1) ;CLEAR PORT4 
3497 017750 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3498 017752 122117 122117 ;PUT LINE UNIT IN BITSTUFF MODE 
3499 017754 004737 033676 JSR PC,CLRIO MUST DO THIS AFTER MODE IS SET 
3500 017760 012711 004000 MOV #B1T11,(81) 
3501 017764 012702 000012 MOV #12,R2 ;SAVE REG ADDRESS FOR TYPEOUT 
3502 017770 004737 032500 JSR PC ,OUTRDY WAIT FOR OUTRDY 
3503 017774 012761 000001 000004 MOV #1,4(R1) ;LOAD PORTS 
3504 020002 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3505 020004 122111 122111 ;SET SOM 
3506 020006 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3507 020010 122110 122110 7 LOAD me vi CHAR 
3508 020012 012761 000301 000004 MOV #301,4(R1) ;LOAD PORT4 
3509 020020 104414 ROMCLK ;NEXT WORD 418 INSTRUCTION, ROMCLK PC=5304 
3510 020022 122110 122110 ;LOAD OUT DA 
3511 020024 004737 032346 JSR PC ,OCOR ‘WAIT FOR OCOR 
3512 020030 104415 000023 DATACLK, 23 :SINGLE CLOCK THE DATA 
3513 020034 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3514 020036 021244 021244 :PORT4 LU-12 
3515 020040 016104 000004 MOV 4(R1),R4 ;PUT ‘'FOUND'' IN R4 
3516 020044 042704 000277 BIC #277,R4 ;CLEAR UNWANTED BITS 
3517 020050 012705 000100 MOV #BIT6,R5 PUT “‘EXPECTED'’ IN R5 
3518 020054 120504 CMPB R5,R4 71S IN ACTIVE SET? 
3519 020056 001401 BEQ 1$ 
3520 020060 104040 HLT 40 sERROR, IN gtiy NOT SET 
3253 020062 104400 1$: SCOPE ;SCOPE THIS TES 
3523 
3524 , pteeteneeeeeteteerereeeeeeee TEST 32 eeereerenerencerereeneneene 
3525 *B1TSTUFF IN ACTIVE TEST 
3526 :*SET LU LOOP, SINGLE STEP i. CLASS AND A NON-FLAG (301) 
3527 S*VERIFY THAT IN ACTIVE IS § 
3528 *: viel Diet Me Rank 65 BR, 5 ER EE 8 pe Sc 
3529 
he! s Test 
3532 020064 012737 000032 001226 15132: MOV #32,1TSTNO 
3533 020072 012737 020170 001216 MOV #TST33,NEXT 
3534 :R1 CONTAINS , DMC 11 ADDRESS 
3535 0201 104412 MSTCLR [MASTER CLEAR DMC11 
3536 020102 005061 000004 CLR 4(R1) ;CLEAR PORTS 
3537 020106 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3538 020110 122117 122117 ;PUT LINE UNIT IN BITSTUFF MODE 
3539 020112 004737 033676 JSR PC,CLRIO 300 THIS AFTER MODE IS SET 


Si 
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0058 08-JUL-80 08:25 BASIC RECEIVER TESTS SEQ 0071 
020116 012711 004000 MOV #BIT11,(R1) :SET LU LOOP 
020122 012702 000012 MOV #12,R2 : SAVE tu REG FOR TYPEOUT 
att 004737 032364 JSR PC, SYNC “SINGLE CLOCK 2 SYNC CHARACTERS 
020132 000002 2 
020134 104415 000033 DATACLK, 33 
020140 104414 ROMCLK went WORD 1S INSTRUCTION, ROMCLK PC=5304 
020142 021244 021244 PORT4 LU12 
020144 016104 000004 MOV 4(R1),R4 = PUT POUND" IN RG 
020150 042704 000277 BIC #277,R4G CLEAR UNWANTED BITS 
020154 012705 000100 MOV #BIT6,P5 PUT "'EXPECTED'' IN 85 
920160 %20504 CMPB R5,R4 31S ACTIVE SET? 
020162 001401 BEO 1$ :BR IF YES 
020164 104040 HLT 40 ERROR ACTIVE IS NOT SET 


020166 104400 1$: SCOPE :SCOPE THIS TEST 


peeeeeneeereeterererererenen TEST 33 xeeeeeeeeneeeeerererererere 
IN CLEAR TES! 

:*SYNC UP RECEIVER AND TRANSMIT A CHARACTER 

;*WAIT FOR IN RDY, THEN SET IN CLEAR 

;*VERIFY THAT IN ACTIVE AND IN RDY ARE CLEARED 


SI AAHAHHeHEKTAAAe AKT eKeAKKeKeHKeeKeneeeteteareenenetaeeeeenesee 





TEST 33 
020170 012737 000033 001226 158133: MOV #33, TSTNO 
020176 012737 020374 001216 MOV #1ST34,NEXT 
:R1 CONTAINS Bast DMC11 ADDRESS 
020204 104412 MSTCLR *MASTER CLEAR DMC11 
020206 005061 000004 CLR 4(R1) CLEAR PORTS 
020212 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020214 122117 122117 :PUT LINE UNIT IN le MODE 
020216 004737 033676 JSR PC,CLRIO :DO THIS AFTER MODE IS SET 
020222 012702 000012 MOV #12,R2 :SAVE REG ADDRESS IN a2” FoR TYPEOUT 
020226 012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
020232 012761 000001 000004 MOV #1,4(R1) >SET BITO IN PORTS 
020240 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020242 122111 122111 SET SOM! 
020244 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020246 122110 122110 :LOAD GARBAGE CHAR 
020250 004737 032644 JSR PC, CHARSD [LOAD SILO WITH CHARACTER 
020254 000026 26 ; CHARACTER 
020256 104415 000033 DATACLK, 33 SINGLE CLOCK _ DATA 
020262 104416 000002 TIMER, 2 :WAIT FOR INRD 
020266 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020270 021244 021244 : :PORT4 LU 12 
020272 016°04 000004 MOV 4(R1),R4 :PUT "‘FOUND'' IN R4 
020276 042704 000357 BIC #357,R4 CLEAR matte BIT 
020302 012705 000020 MOV #BIT4,R5 1 Fe XPECTED" IN RS 
0306 120504 CMPB R5,R4 71S nei SET? 
020310 001401 BEQ 1$ 
020312 104040 HLT 40 ERROR, INRDY IS NOT SET 
020314 1$: 
020314 012761 000200 000004 MOV #BIL1T7,4°(R1) sLOAD PORT4 
020322 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020324 122112 122112 :SET IN CLEA 


0059 


C2 
C2 
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3639 
3641 


SceESPERE 


020326 


020372 


020374 
020402 


020410 


30892 


104414 


104040 


016104 
042704 
005005 

120504 
001401 
104040 
104400 


012737 
012737 


104412 


104040 


104414 
021204 


000004 
000277 


000004 
000357 


000034 001226 
020542 001216 


000004 


033676 
000012 
004000 
000001 


032644 


000033 
600002 


000004 
000357 
000020 


000004 


PUT ‘'FOUND'’ 
:CLEAR UNWANTED BITS 
:PUT "‘EXPECTED'’ IN RS 
:1S INRDY CLEARED? 


sERROR, 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LU 12 

=PUT "FOUND IN RG 
CLEAR UNWANTED BITS 


:PUT EXPECTED’ IN R5 
31S IN ACTIVE CLEAR? 


s ERROR, 


IN ACTIVE IS NOT CLEAR 
IN R4 


INRDY IS NOT CLEARED 


;SCOPE THIS TEST 


pe eekeeneretetereterereteeee TEST 34 HARK HEHERERKAHAETERee 


7*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 


AND THAT THE CHARACTER WAS RECEIVED 


SI AAHHHEHEKHKEKKEKTeeHeKeKKAKKKAReAKeneKeteeKeaAeaKeneeneeneres 


PORT 
ENEXT WORD. IS. INSTRUCTION, 


ERROR, 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


7R1 CONTAINS BASE DMC11 ADDRESS 

;MASTER CLEAR DMC11 

;CLEAR PORTS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;PUT LINE UNIT IN get MODE 

;DO0 THIS AFTER MODE IS 

; SAVE REG UNIT LOOP" RQ FOR TYPEOUT 
ROMCLK PC=5304 


ROMCLK PC=5304 


SET SOM! 
:NEXT WORD IS INSTRUCTION, 
;LOAD GARBAGE CHAR 


[LOAD SILO WITH CHARACTER 
; CHARACTER 

SINGLE CLOCK THE DATA 
;WAIT FOR INRDY 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LU 12 
:PUT "'FOUND'’ IN RG 
s CLEAR ven BIT 

:P PENPECTED" IN RS 
21S INRDY Urn 


INRDY IS NOT SET 


ROMCLK 
021244 
MOV 4(R1),R4 
BIC #277,R4 
CLR R5 
CMPB R5,R4 
BEQ 2s 
HLT 40 

ra 
MOV 4(R1),P4 
BIC #357,R4 
CLR R5 
CMPB R5,R4 
BEQ 3$ 
HLT 40 

3$: SCOPE 

‘ *BITSTUFF BASIC RECEICER TEST 

SeVERIFY THAT IN RDY IS SET, 
; TEST’ 3 

TST34: MOV #34,TSTNO 
MOV @TST35,NEXT 
MSTCLR 
CLR 4(R1) 
ROMCLK 
122117 
JSR PC,CLRIO 
MOV #12, R2 
MOV #BIT11, (R1) 
MOV #1, 4(R1) 
ROMCLK 
122111 
ROMCLK 
122110 
3 PC,CHARSD 
DATACLK, 33 
TIMER 2 
ROMCLK 
021244 
MOV 4(R1),R4 
BIC #357,R4 
MOV #BIT4,RS 
CMPB R5,R4 
BEQ 1$ 
HLT 40 

1$: 
ROMCLK 
021204 


;PORTS_IN DATA 


SEQ 0072 


) 0060 


co 


CZDMF 


CZDMF P11 


020524 


020540 


020542 
020550 


020556 


020710 


MACY11 ae S 
08-JUL-80 


016104 
5 


104400 


012737 
012737 


104412 


104040 
104414 


104400 


08-JUL-80 
8:25 


000004 


000035 
020712 


000004 


033676 
000012 
004000 
000001 


032644 


000033 
000062 


000004 
000357 
000020 


000004 
000125 


001226 
001216 


000004 


08:26 PAG 


GE 
BASIC RECEIVER TESTS 


2s: 


TST35: 


1$: 


2s: 


MOV 4(R1) RG 
LR R5 

CMPB R5,R4 

BEQ $ 

HLT 10 

SCOPE 


;PuT "FOUND" IN RG 

PUT "EXPECTED IN RS 

;WAS A O RECEIVED? 

sERROR, RECEIVED DATA IS WRONG 
sSCOPE THIS TEST 


pe teterertereneerrereererene TEST 35 aeareneerereererarererereee 
s*BITSTUFF BASIC RECEICER TEST 
s*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125 


;*VERIFY THAT IN RDY IS SET, 


AND THAT THE CHARACTER WAS RECEIVED 


PI SSARHeAH Keke HeteeeteteketeeReReteeneHeteeteeeeteteteeeereteeee 


MOV #35, TSTNO 
MOV #TST36,NEXT 


MSTCLR 

‘ 4(R1) 

JSR PC,CLRIO 
#12,R2 


MOV witli, (R1) 
MOV #) 4(R1) 


0 
JSR PC, CHARSD 
125 
DATACLK, 33 


021204 


:R1 CONTAINS BASE DMC11 ADDRESS 

:MASTER CLEAR DMC11 

;CLEAR PORTS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT LINE UNIT IN B1TSTuFF MODE 

;D0 THIS AFTER MODE IS 

SAVE REG ADDRESS IN Ro FOR TYPEOuT 

:SET LINE UNIT LOOP 

;SET BITO IN PORTS 

:NEXT WORD IS INSTRUCTION, 
;SET SOM! 


NEXT WORD IS INSTRUCTION, 
;LOAD GARBAGE CHAR 
;LOAD SILO WITH CHARACTER 
; CHARACTER 
:SINGLE CLOCK THE DATA 
WAIT FOR INRDY 
SNEXT ae IS INSTRUCTION, 
=PORTS LU 12 
;PuT POUND IN RG 
CLEAR UNWANTED BITS 

sPUT "‘EXPECTED'’ 
:1S INRDY SET? 


ERROR, INRDY IS &OT SET 


NEXT WORD iS INSTRUCTION, ROMCLK PC=5304 
;PORT4 IN DAT 
:PUT ‘‘FOUND'' i R4 
sPUT ““EXPECTED’’ IN RS 
[WAS A 125 RECEIVED? 


sERROR, RECEIVED DATA IS WRONG 
;SCOPE THIS TEST 


ROMCLK PC=5304 
ROMCLK PC=5304 


ROMCLK PC=5304 


IN RS 


Pteeeeeererererereeererereee TEST 36 eeecencenrererenceeneecener 


S*BITSTUFF BASIC RECELCER TEST 


SEQ 0073 


0061 





CZ7DMF 


CZDMF .P11 


MACY11 30A(1052) 
08-JUL-80 08:25 


020712 
020720 


020726 


021060 


021062 
021070 


021076 


001401 
104040 


104414 
021204 


104400 


012737 
012737 


104412 


QO8-JUL-80 08:26 PAGE 75 
BASIC RECEIVER TESTS 


000036 001226 
021062 001216 


000004 


033676 
000012 
004000 
000001 000004 


032644 


000033 
000002 


000004 
000357 
000020 


000004 
000252 


000037 001226 
021232 001216 


TST36: 


1$: 


2$: 


TST3?7: 


:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252 
>*®VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


Sr eRaRAAKeteRetereeeeetenetteeeeneeeeerieeeeaAeeeKereRneenetenees 


; TEST 36 
MOV #36, TSTNO 
MOV a@TST37,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
CLR 4(R1) i CLEAR PORTS 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 PUT LINE UNIT IN gt: MODE 
JSR PC,CLRIO :D0 THIS AFTER MODE IS S 
MOV #12,R2 [SAVE REG ADDRESS IN R2 FOR TYPEOUT 
MOV #BIT11,(R1) iSET LINE UNIT oh or 
MOV #1, 4(R1) SET BITO IN P 
ROMCLK “NEXT WORD IS ONSTRUCTION, ROMCLK PC=5304 
122111 ;SET SOM! 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 LOAD GARBAGE CHAR 
JSR PC, CHARSD sLOAD SILO Oi TH CHARACTER 
252 : CHARACTER 
DATACLK, 33 SINGLE CLOCK THE DATA 
TIMER, 2 sWAIT FOR INRDY 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 sPORT4 LU 12 
MOV 4(R1),R4 :PUT ‘FOUND’ IN R4 
BIC #357,R4 CLEAR waar BITS 
MOV #BIT4,RS EXPECTED’ IN RS 
CMPB R5,R4 :1S INRDY Peer? 
BEQ 1$ 
HLT 40 sERROR, INRDY IS NOT SET 
ROMCLK :NEXT WORD 1s INSTRUCTION, ROMCLK PC=5304 
021204 ;PORT4 IN DAT 
MOV 4(R1),R4 :PUT ‘'FOUND'' IN R4 
MOV #252,R5 PUT ““EXPECTED'’ IN RS 
CMPB RS,R4 ‘WAS A 252 RECEIVED? 
BEQ 2$ 
HLT 10 sERROR, RECEIVED DATA IS WRONG 
SCOPE :SCOPE THIS TEST 


pteeeeeeeeereeeeteeeereenene TEST 37 eetenerterereneeenrenerenes 
S*BITSTUFF BASIC RECEICER TEST 

:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 577 

;*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


L  eeeeeeeeeeerteceeeetreeeteeeeeeeeneeeeeeeeetetenteeenereeneett 


s Vest 
MOV #37, TSTNO 
MOV #TSTGO,NEXT 


7R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 


SEQ 0074 


0062 








TESTS 
4(R1) 

PC, CLRIO 
#12,R2 


#B1T 


11,(R1) 
#1,4(R1) 


PC, CHARSD 
34 





;CLEAR PORT4 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
TUFF MODE 


;D0 THIS AFTER MODE IS SET 

;SAVE REG ADDRESS IN RQ FOR TYPEOUT 
;SET LINE UNIT LOOP 

SET BITO IN PORT4 

sNEXT WO WORD IS INSTRUCTION, 


:§ 
;NEXT woRD IS PS TORT ION, 
LOAD GARBAGE CHA 
‘TOAD SILO WITH CHARACTER 
: CHARACTER 
SINGLE CLOCK we DATA 
‘WAIT FOR INRDY 
NEXT WORD IS INSTRUCTION, 
;PORT4 LU 12 
:PUT ''FOUND'' IN R4 
;CLEAR eats BITS 
T 'EXPECTED'’ IN RS 
;1S wel Ser? 


ERROR, INRDY IS NOT SET 


:NEXT WORD IS INSTRUCTION, 
:PORT4_IN DATA 

:PUT ‘'FOUND'' IN R4 

:PUT “‘EXPECTED'’ IN RS 

‘WAS A 377 RECEIVED? 


ROMCLK PC=5304 
ROMCLK PC=5304 


ROMCLK’ PC=5 304 


ROMCLK PC=5304 


ERROR, RECEIVED DATA IS WRONG 


;SCOPE THIS TEST 


peeeeeeeeetereneteeeeeeneeee TEST GQ eeeeeeeeeneeeeeeeeeterenene 


[*BITSTUFF DATA TEST 


:*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
Sint manne EACH CHARACTER AS IT IS RECEIVED 


WETTTTLILELITI TELE LL LLL) 


CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 76 
CZDOMF .P11 08-JUL-80 08:25 BASIC RECEIVER 
3764 021100 005061 000004 CLR 
3765 0 04 104414 ROMCLK 
3766 021106 122117 122117 
3767 021110 004737 033676 JSR 
3768 021114 012702 000012 MOV 
3769 021120 ae eah 004000 MOV 
3770 021124 012761 000001 000004 MOV 
3771 O 32 104414 ROMCLK 
3772 021134 122111 122111 
3773 0 36 «104414 ROMCLK 
3774 0 40 122110 12211 
3775 021142 004737 032644 JSR 
3776 46 000377 377 
3777 50 104415 000034 DATACLK 
3778 021154 104416 000002 TIMER, 
3779 021160 104414 ROMCLK 
3780 021162 021244 021244 
3781 021164 016104 ‘000004 MOV 
3782 021170 042704 000357 BIC 
3783 021174 012705 000020 MOV 
3784 021200 120504 CMPB 
3785 021202 001401 BEQ 
3786 021204 104040 HLT 
3787 021206 1$: 
021206 104414 ROMCLK 
3789 021210 021204 021204 
7 021212 016104 000004 MOV 
3791 021216 012705 000377 MOV 
3792 021222 120504 CMPB 
3793 021224 001401 BEQ 
3794 021226 104010 HLT 
3795 021230 104400 23: SCOPE 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 ; TEST 
3805 joowcee 
3806 021232 012737 000040 001226 1TST40: MOV 
che 021240 012737 021406 001216 MOV 
021246 104412 MSTCLR 
3810 021250 005061 000004 CLR 
3811 021254 104414 ROMCLK 
3812 021256 122117 122117 
3813 021260 004737 033676 JSR 
3814 021264 005037 033150 CLR 
3815 021270 005137 033150 COM 
3816 021274 005037 034114 CLR 
3817 021300 005037 033152 CLR 
3818 021304 005002 CLR 
3819 021306 012703 000073 MOV 


40 


#40,TSTNO 
#TST41,NEXT 


4(R1) 


PC,CLRIO 
SCHAR 
SCHAR 
BITCON 
STUFLG 


R2 
#73,R3 


;R1 CONTAINS BASE DMC11 ADDRESS 

;MASTER CLEAR DMC11 

CLEAR PORT4 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT LINE UNIT IN BITSTUFF MODE 

:D0 THIS AFTER MODE IS SET 


;START BINARY COUNT AT ZERO 
:1F BITSTUFF SCHAR IS MINUS NUMBER 


:START 1°S COUNT AT 0 
CLEAR BITSTUFF FLAG 
;R2 1S “‘EXPECTED’’ DATA 

:R3 [S$ CHARACTER COUNT 


SEQ 0075 


0063 





CZOMF 


CZDMF P11 


021404 


021406 
021414 


021422 


MACY11 qt 


08-JUL-80 0 


012711 


104400 


012737 
012737 


s=onsexseses 
eeeeerve sn 
FRR RRM RNA 
RNR BRNO RNON 
WW Ws ABO 
NWN & 


004000 


033154 


000004 


000400 


032710 
000073 


000041 
021572 


000040 


032710 


033154 


000004 
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BASIC RECEIVER TESTS 


1$: 


2%: 


3$: 


ae 
Pe 


MOV #BITI1,(R1) 
JSR hockii 


30 
JSR PC, INRDY 


021204 

MOV 4(R1) ,R4 
MOV R2,R5 
CMPB R5,R4 
BEQ 2$ 

HLT 10 

INC R2 

CMP #400,R2 
BEQ 3$ 

DEC R3 

BNE 


4$ 
JSR PC,SILOLD 
MOV #73,R3 


BR 1$ 
SCOPE 


;SET LINE UNIT 


LOOP 
:LOAD SILO WITH COUNT PATTERN 
:SYNC RECEIVER AND GET IT ACTIVE 
CLOCK IN tz cannes ERS 
“WAIT FOR INR 
;NEXT WORD Is INSTRUCTION, ROMCLK PC=5304 
:PORT4_IN D 
‘PUT FOUND | N RG 
‘PUT MEXPECTED"" IN RS 
:1$ DATA CORRECT? 


‘BR IF YES 
;DATA ERROR 
;NEXT CHARACTER 
;ALL DONE? 


;BR IF YES 
te yng COUNT 
: Y 


R IF SILO NOT EMPT 


“LOAD SILO WITH MORE OF COUNT PATTERN 


RELOAD CHARACTER COUNT 
; CONTINUE 
;SCOPE THIS TEST 


peeeeeeeeatererererererenene TEST 4] tteecaneeerenaneereeenennes 


;*BITSTUFF DATA TEST 


*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
>*CHECKING EACH CHARACTER AS IT IS RECEIVED 
>*THIS TEST IS EXACTLY THE SAME AS THE LAST TEST, 
s #EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12 


RARER AAA RERAAAAEAAAAAAAAAAAARAEAAERE KHER Kee KAA eee 


TEST 41 


MOV #41,TSTNO 
MOV #TST42,NEXT 


CLR 4(R1) 


JSR PC,CLRIO 
SCHAR 

COM SCHAR 

CLR BITCON 

CLR STUFLG 
Re 

MOV #73,R3 


(R1) 
MOV #B1TS,4(R1) 


JSR PC,SILOLD 
23 


;R1 CONTAINS — DMC11 ADDRESS 


sMASTER CLEAR DMC11 

:CLEAR PORTS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT LINE UNIT IN BITSTUFF MODE 


:D0 THIS AFTER MODE IS SET 
;START BINARY COUNT AT ZERO 


IF BITSTUFF —, {s MINUS NUMBER 
:START 1°S COUNT AT 0 
CLEAR BITSTUFF FLAG 
;R2 1S ‘‘EXPECTED’’ DATA 
:R3 1S CHARACTER COUNT 
;CLEAR LU LOOP IN MAINT REG 
;LOAD PORT4 
:NEXT WORD IS wily Hers ROMCLK PC=5304 
;SET LU LOOP IN LU REG 12 
;LOAD SILO WITH COUNT PATTERN 
pe RECEIVER AND GET IT ACTIVE 
CLOCK IN + matty 
‘WALT FOR INR 
;NEXT WORD is INSTRUCTION, ROMCLK PC=5304 


SEQ 0076 


0064 





CZOMF 


CZDMF .P11 


fofofofofofofofofotot{eoleoiel=) 
MrT POPOPOPOPPOPronr rrr 
a tk td ot od td 
PUPP SPESVISISIAI SSIS 
NAAM & EWI 
AMA LMO SFNOALVO & 


021720 


MACY11 30A(1052) 
08-JUL-80 08: 


021204 


104400 


ooo--o-—- OO 
y Fwy ane 4 4 —— 
ern 

Sen Oo NN 


3s 
~ 
= nae SOF NN 


SNUnNNN- 
“WOW we OO 


— 
FRE 
NWO FN OS NO 


23 
ene 
—Ww 


Sa ccBs 
Nm 
Ono — 


_ 
So 


SES8Ss 

—& MO 

Soor—w—=ooCO 
RERNSLRSRR 


we 


000004 


000400 


032710 
000073 


033676 
004000 
032532 


032500 


000073 
033154 


000004 
000301 


033154 


000004 
000375 
000002 


Senet “80 08:26 PAGE 7 


8 
BASIC RECEIVER TESTS 


2$: 


3$: 


1$: 


021204 
Vv 


B 
SCOPE 


PC, SILOLD 
#73,R3 


1$ 


;PORT4 IN DATA 

sPUT ‘FOUND’ IN R& 
‘PUT EXPECTED’ IN R5 
:1S DATA CORRECT? 

“BR IF YES 

“DATA ERROR 

:NEXT CHARACTER 

;ALL DONE? 


BR IF YES 
: DECREMENT yg ts COUNT 
;BR IF SILO NOT EMPT 

:LOAD SILO WITH MORE "oF COUNT PATTERN 
;RELOAD CHARACTER COUNT 

; CONTINUE 

;SCOPE THIS TEST 


erntuNe inakt Gas TEST 42 xeeranereataneneereerenenee 


;*RECEIVER ABORT TEST 
;*SINGLE CLOCK 3 FLAGS, A 301 


ANOTHER 301 AND ys EXTRA 


“*CLOCK TICKS, VERIFY TH*T A 301 AND A BLOCK END 
TeWERE RECEIVED INDICATING THAT THE RECEIVER RECOGINIZED 
:*THE ABORT SEQUENCE (8 CONTIGUIOUS 1'S) 


PETTITT TUITITIS ETT T IIIT teti tility) 


; TEST 42 

MOV #42, TSTNO 
MOV #TST43,NEXT 
MSTCLR 

CLR 4(R1) 
ROMCLK 

122117 

JSR PC,CLRIO 
MOV #BiT11,(R1) 
JSR PC, CHAR 
301 

JSR PC ,QUTRDY 
ROMCL 

122110 

DATACL 73 
JSR PC, INRDY 
ROMCLK 

021204 

MOV 4(R1) 

MOV #301,R5 
CMPB RS, RG 

BEQ $ 

HLT 

JSR PC, INRDY 
ROMCLK 

02124 

MOV 4(R1), RA 
BIC #375,R 

MOV #2, Ta 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PUT LINE UNIT IN BITSTUFF MODE 

;D0 THIS AFTER “s IS SET 

;SET LINE UNIT LOO 

:LOAD SILO WITH 3 FLAGS 


30 

:WAIT FOR OUTRDY 
NEXT WORD IS odie Ub ya ROMCLK PC=5304 
;LOAD 2ND 301 CHARACTE 
CLOCK THE 301 IN AND. to EXTRA TICKS 
WAIT FOR INRDY 
ZNEXT WORD 1S) INSTRUCTION, ROMCLK PC=5304 

AT 


R4 
PUT “EXPECTED'’ IN R5 
;WAS A 301 RECEIVED? 


; ERROR . aaa INCORRECT 
:WAIT FOR INR 
iNEXT uonp 1S) INSTRUCTION, ROMCLK PC=5304 


:CLEAR UNWANTED BITS 
;PUT ‘EXPECTED’ IN R5 


SEQ 0077 
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0065 | CZDMF .P11 08-JUL-80 08:25 BASIC RECEIVER TESTS SEQ 0078 
| 3932 021724 120504 CMPB RS, RG 15 BLOCK END SET? 
3933 021726 001401 BEQ 3$ “BR YES 
3934 021730 104032 HLT 32 ‘ERROR, BLOCK END NOT SET 
| $32 021732 104400 3$: SCOPE :SCOPE THIS TEST 
3937 
3938 peeeeeeeeteerereteeeerereene TEST 43 teeeteeeeeeeeenreeereerrere 
3939 :*CABLE TURNAROUND TEST 
3940 7*CLEAR LINE UNIT LOOP, SET DTR 
3941 s*VERIFY THAT RING AND MODEM READY ARE SET 
3942 s*CLEAR DTR, VERIFY THAT MRDY IS CLEARED 
3943 FERRARA AREA AAEE AREA HE EREAERAAAAERRE RHE EHEREREAH RARE EAHA E ARATE 
3944 
3945 ; TEST 43 
3946 peewee ecccccee 
3947 021734 012737 000043 001226 TST43: MOV #43, TSTNO 
3948 021742 012737 022162 001216 MOV #TST4G NEXT 
3949 +4 CONTAINS BASE DMC11 ADDRESS 
3950 021750 104412 MSTCLR MASTER CLEAR DMC11 
3951 021752 032737 020000 001366 BIT #B1T13, STATI 315 LINE UNIT M8202? 
3952 021760 001004 BNE +12 ‘BR IF YES (DO TEST EVEN IF NO LOOP=BACK CONN) 
3953 021762 032737 040000 001366 BIT #BIT14,STATI ;1S TURNAROUND CONNECTOR ON? 
3954 021770 001473 BEQ 49 :SKIP TEST IF NO 
3955 021772 005011 CLR 7CLEAR LINE UNIT LOOP 
3956 021774 012761 000100 000004 MOV #100, 4(R1) ;LOAD PORT4 
3957 022002 104414 ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
3958 022004 122113 122113 :SET DTR 
3959 022006 104416 000002 TIMER, 2 WAIT 
3960 022012 104414 ROMCLK pNEXT word 1S INSTRUCTION, ROMCLK PC=5304 
3961 022014 021264 021264 ;PORT4_LU13 
3962 022016 016104 000004 MOV 4(R1),R4 ; PUT FOUND IN7R4 ++44NEW 
3963 022022 042704 000023 BIC #23,R4 ; CLEAR JUNK 
3964 022026 012705 000310 MOV #310,R5 > GET EXPECTED. 
3965 022032 032737 020000 001366 BIT #B1T13,STATI ; IS LINE UNIT 48202? 
3966 022040 001402 BEQ .+6 
tf 022042 042705 000200 BIC #BIT7,R5 ; NO RING ON M8202 
3969 022046 032737 000004 001372 BIT #BIT2,STATS ; IS THIS V.35 MODEM? 
ere 022054 001402 BEQ 3$ ; NO THEN GO AHEAD. 
| 3972 022056 042705 000200 BIC #BIT7, RS : YES-NO RING ON V.35 MODEM 
3973 022062 3$: 
3974 022062 020504 CMP R5,R4 ; ARE RING AND MODEM READY SET? 
3975 022064 001401 BEQ 1$ ; WARNING! IF V.35 AND AUTO STARTED, 
3976 ; YOU WILL GET THIS ERROR. YOU MUST 
3977 ; MANUALL NASWER THE QUESTIONS FOR V.35. 
3978 022 104011 HLT 1 sERROR, MRDY NOT SET 
3979 022070 005061 000004 1$: CLR 4(R1) s CLEAR PORTS 
3980 022074 104414 ROMCLK :NEXT WORD 1S, Ins OCT IO, ROMCLK PC=5304 
3981 022076 127°13 122113 CLEAR 
3982 022122 104416 000002 TIMER, 2 
3983 072104 104414 ROMCLK iNEXT WORD iS es TRUCT ION. RUMCLK PC=5304 
3984 4722106 021264 021264 PORTS LU13 
3985 022110 016104 000004 MOV G(R1) RG ; PUR FOUND IN “Re ++ ONE Ww 
3986 022114 042704 000023 BIC #23,R4 > STRIP JUNK 
3987 922120 005005 CLR R5 ; SET EXPECTED. 


| 


po fofofofloflololol=) 
MMPMNPOPOPOROP 
MMP Pron 
ae at ot 2 ot ot od 


FONE Fy 
EMMA SE ONwROKT 


MACY11 30A(1052) 
08-JUL-80 08 


032737 
2 


02 
042704 


120405 
001401 


104011 
104400 


005011 
104414 


012705 
032737 


032737 
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725 BASIC RECEIVER TESTS 


aac ; IS THIS A M8202? 
+ 


#BIT3,R5 ; YES THEN EXPECT MRDY SET. 
1 Sel arab ; IS THIS v.35? 


020000 


000010 
000004 


000200 


000044 
022356 
020000 
040000 
004000 
000100 


000002 
000001 


033634 


000050 


000004 
000023 
000354 


000004 


000200 
020000 


#BIT7,R4 


eet ; ARE RING AND MRDY CLEAR? 


; WARNING! YOU MAY GET THIS ERROR IF v.35 
; AND AUTOSTART. YOU MUST MANNUALLY ANSWER 
; ALL QUESTIONS IF v.35. 
11 ERROR, MRDY NOT CLEAR 


:SCOPE THIS TEST 


TEST 44 


peeeeeteeeteeerrenereeeeenee TEST 44 aeeeerareeretereeeereraerene 
;*CABLE TURNAROUND TEST 

:*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO 

:*VERIFY THAT ALL MODEM SIGNALS ARE SET 


wit t ff D Pee RRR RR RRR RRR REE SESE REECE ESSE SCS ESCSCOSOSCLELOSECLL.. © SY 


:R1 CONTAINS BASE DMC11 ADDRESS 
ER CLE MC11 


#44,1STNO 
#TST45,NEXT 

MAST 
BIT at Soi stati 
BNE +12 
BIT #B1T14, STATI 
BEQ 


MOV wT), (Ri) 


MOV #100, 4(R1) 


2 
MOV #1,4(R1) 
R5,MESLD 


MOV #50,R0 
CLR (R1) 


MOV at al age 
BIC #23, 
MOV 1354" RS 


BIT #BIT2,STAT3 
40$ 


B #BIT7,R5 
#BIT13,STATI 


DMC 
31S LINE UNIT M8202? 
BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN ) 
fh aces tee ease Sa0 ON? 
:SéT LINE UNIT LOOP 


LOAD 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
wait" ALL MODEM SIGNALS, EXCEPT DTR 
a 


; IF 
: 1S THIS mBD009 


D PORT4 
sNEXT woh 18 ih INSTRUCTION, ROMCLK PC=5304 


sFILL OUT DATA SILO 
WITH 64 CHARACTERS 


PREPARE FOR DELAY 
CLEAR LINE UNIT LOOP 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
PORTS LU13 
;PUT ''FOUND'’ IN RG 


:CLEAR UNWANTED BITS 
EXPECTED’ IN R5 


| 


0067 





CZDMF 
CZDMF .P1 


oOooo°oc°e°oo — 
MMMM 
MrPNPofrrnen 
WAWAWNIW 


022356 
022364 
022372 


022400 


022410 
022412 


022472 
022476 


MACY11 30A(1052) 
08-JUL-80 08: 


001402 
042705 


120504 


104011 


104400 


104415 
005200 
004537 


103006 


000200 


000045 
022722 
022426 


000004 


033676 
034114 
004000 
033676 


102010 


033336 


000021 
000001 


033210 


033450 


001226 
001216 
001220 


033332 
022506 
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81 
BASIC RECEIVER TESTS SEQ 0080 
BEQ 4$ ; NO,SKIP 
6$ BIC #BLT7,R5 
CMPB RS, RG ; COMPARE EXPECTED AND FOUND 
BEQ 1$ [BR IF 
DEC RO ;DEC DELAY COUNT 
BNE 2$ :BR IF NOT ZERO 
HLT 11 TERROR, ALL SIGNALS ARE NOT SET 
; YOU MUST ANSWER ALL QUESTIONS 
; MAUNALLY IF V.35 . 
1$: SCOPE ;SCOPE THIS TEST 
petteeneeererentereeeerereee TEST G5 aeeeeererenereetererrereeer 
s*TEST OF CRC OPERATION 
>*USING THE CRC.CCITT POLYNOMIAL, SINGLE tl THE CHARACTER 
:*0, VERIFY THE LSB OF THE BCC ON EACH SHIF 
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 
WOO e eee PERE REESE ESSE SEES SEC SE CESSES ECOLLCLSLLLSSCCLLCCCLCCLCCL ST 
;. Test 45 
TST45: MOV #45, TSTNO 
MOV #TST46,NEXT 
MOV #64$,L0CK 
3R1_ CONTAINS BASE DMC11 ADDRESS 
MSTCLR “MASTER CLEAR 0MC11 
CLR 4(R1) ;CLEAR PORT4 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 ;PUT LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO ;DO0 THIS AFTER MODE IS SET 
CLR BITCON ; CONSECUTIVE 1°S COUNTER INIT TO 0 
MOV #B1T11,(R1) ;SET LU LOOP 
64$: JSR PC,CLRIO :CLEAR BCC REGISTERS 
CLR RO START SHIFT COUNTER AT ZERO 
MOV #CRC.CCITT,XPOLY;LOAD POLYNOMIAL FOR SOFTWARE BCC 
MOV #0 ,66% ;LOAD CHAR FOR SOFTWARE BCC 
CLR 67$ ;CLEAR OLD SOFTWARE BCC 
COM 67$ sSTART AT =-1 
JSR PC,BCCLD ;LOAD OUT SILO WITH 2 SYNCS 
0 ;AND THE CHARACTER 0 


66$: 
67$: 


DATACLK, 21 ;GET TRANSMITTER ACTIVE 

DATACLK, 1 ; SHIFT BCC ONCE 

INC RO ;BUMP SHIFT COUNT 

JSR RS,SIMBCC CALCULATE SOFTWARE BCC LSB 

1 :ONE SHIFT 

0 DATA CHARACTER 

0 :OLD BCC 

BCS 68% :BR IF SOFT BCC LSB IS SET 

JSR PC ,GETQ0 GET HARDWARE TRANSMITTER BCC LSB 
BCC 69% :BR IF HARD BCC LSB IS CLEAR 


0968 


CZDMF 
CZ0MF .P11 


AUN SE AAAI OPO 
OP FOMAX LUE Sry 


Pa 
— 
PIMIPMIPIMIPIPIPI POR POP POPO 


~ 
et ot nt od td td od 
AO OONOAUE Ww 
Oo 
Lael 
Nm 
o 
—_ 


POR SS Ss ss 


= 
—_ 


022632 
022636 
022640 


022716 
022720 


MACY11 gore 
80 08: 


08-JUL-80 


104012 


104016 
006037 


104415 
003200 
004537 


104017 
006037 


104400 





033450 


022506 
033334 
000010 


022566 
033676 
102010 


033336 


000032 
000001 


033210 


033462 


033462 


022646 
033334 
000010 


022510 


001220 


033332 
022646 


022650 
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BASIC RECEIVER TESTS 


77$: 


71$: 


72$: 


73$: 
74$: 


75$: 


76$: 


SCOPE 


DATACLK, 


DATACLK, 


INC 
JSR 


12 

65$ 

PC, GETQO 
69$ 

16 

66$ 
CALBCC,678 
65. 


#71$,LOCK 
Benes 


’ 


74$ 
PC,BCCLD 


32 
1 


RO 
R5,SIMBCC 


73% 
CALBCC,74$ 
#10,R0 


#CRC.CCITT,XPOLY: 
#0,73$ 


;ERROR, BCC LSB IS SET 
; CONTINUE 

;G5T HARDWARE TRANSMITTER BCC LSB 
:BP IF HARD BCC LSB IS SET 

:FRROR, HARD BCC LSB IS CLEAR 


;SHIFT SOFT DATA 

LOAD OLD | SOFT BCC 

;DONE YET 

;BR IF NOT DONE 

SCOPE SUBTEST (SwWO9=1) 

NEW SCOPE1 

CLEAR BCC REGISTERS 

:START SHIFT COUNTER AT ZERO 
LOAD POLYNOMIAL FOR SOFTWARE BCC 
;LOAD CHAR FOR SOFTWARE BCC 
;CLEAR OLD SOFTWARE BCC 
:START AT 1 

;LOAD OUT SILO WITH 2 SYNCS 
;AND THE CHARACTER 0 

:GET RECEIVER ACTIVE 

; SHIFT BCC ONCE 


;BUMP SHIFT COUNT 

cae art SOFTWARE BCC LSB 
;DATA CHARACTER 

OLD BCC 


:BR_IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
BR IF HARD BCC LSB IS CLEAR 
:ERROR, BCC LSB IS SET 

; CONTINUE 

:GET HARDWARE RECEIVER BCC LSB 
:BR IF HARD BCC LSB IS SET 
sERROR, BCC LSB IS CLEAR 


:SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 
;DONE YET 

:BR IF NOT DONE 

SCOPE SUBTEST (SWO9=1) 


;SCOPE THIS TEST 


peeeneetteteretereeeereneeee TEST 66 eeeeeraranentaneertrereeens 


>*TEST OF CRC OPERATION 
s*USING THE CRC.CCITT POLYNOMIAL, 


SINGLE phe pf THE CHARACTER 


#377, VERIFY THE LSB OF THE BCC ON EACH SHIF 
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


PT AAAAAAAKET EAA H eee ete eeH eRe eet eee Aten eerAeeetereneseee 


TEST 46 


SEQ 0081 


a 


CZDMF 
069 CZ7DMF 


= oo 


MACY11 30A(1052) 
P11 08-JuUL-80 0 


023060 
023062 
023064 


ooo°oo 
A a a at at ot ot ot ot ot ot a st = 
SPEIEVSSELSUNSs wos 
FOMWOANM FONMNOANOO 


POPIPOPIAPIPONIPOPIPIPOPY PONMIPO PY PIP 
AWA IAAI IAI AAAI OO 


felolofolololofololojei=) 


me 


000001 
005200 
004537 


104016 
013737 


005037 


Q8-JUL-80 08:26 PAGE 


033676 
034114 
004000 
033676 
102010 
000377 
023074 
023074 
033336 


000021 


033776 


033210 


033450 


033450 


023072 


023056 
023074 


83 
BASIC RECEIVER TESTS 


TST46: 


MSTCLR 
ROMCLK 


64$: 


65$: 
60$: 


66$: 
67$: 


68$: 


69$: 


71$: 


;R1 CONTAINS BASE DMC11 ADDRESS 


#46,TSTNO 
MTSTG7 NEXT 
#64$,L0CK 

;MASTER 
CLR 4(R1) 
122117 
JSR PC,CLRIO 
CLR BITCON 
MOV #B1T11,(R1) 
JSR PC,CLRIO 
CLR RO 
MOV #CRC.CCITT,XPOLY 
MOV #377 ,66$; 
CLR 67% 
COM 67$ 
JSR PC,BCCLD 

fi 

DATACLK, 21 
CLR BITCON 
CLR 60% 
DATACLK, 1 
JSR RS,STFFCK 
0 
1 
INC RO 
‘we R5,SIMBCC 
0 
0 
BCS 8$ 
JSR PC ,GETQO 
BCC 9$ 
HLT 12 
BR 9$ 
JSR PC ,GETQO 
BCS 9$ 
HLT 16 
MOV 66% ,60$ 
ROR 66% 
MOV CALBCC ,67$ 
CMP #10,R 
BNE 
SCOP1 
MOV #71$,L0CK 
JSR PC,CLRIO 
CLR RO 
MOV #CRC.CCITT.XPOLY 
MOV #377,73%; 
CLR 74% 


CLEAR DMC11 
PORTS 


; CLEAR 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;PUT LINE UNIT IN BITSTUFF MODE 


;D0 THIS AFTER MODE IS SET 
;CONSECUTIVE 1°S COUNTER INIT TO 0 
;SET LU LOOP 

;CLEAR BCC REGISTERS 

START SHIFT COUNTER AT ZERO 
;LOAGD POLYNOMIAL FOR SOFTWARE BCC 
;LOAD CHAR FOR SOFTWARF BCC 
;CLEAR OLD SOFTWARE BCC 

START AT =1 

;LOAD OUT SILO WITH 2 SYNCS 

;AND THE CHARACTER 377 

;GET TRANSMITTER ACTIVE 

;CLEAR BIT COUNTER 


SHIFT BCC ONCE 

;CHECK FOR STUFFING ZEROS 
; CHARACTER 

SHIFT COUNT 


;BUMP SHIFT COUNT 


; CALCULATE SOFTWARE BCC LSB 

;ONE SHIFT 

;DATA CHARACTER 

;OLD BCC 

;BR IF SOFT BCC LSB IS SET 

;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
ERROR, BCC LSB IS SET 

; CONTINUE 

;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS SET 
ERROR, HARD BCC LSB IS CLEAR 


:SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

;DONE YET? 

;BR IF NOT DONE 

;SCOPE SUBTEST (SWO9=1) 

;NEW SCOPE 

;CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR SOFTWARE BCC 
;LOAD CHAR FOR SOFTWARE BCC 
;CLEAR OLD SOFTWARE BCC 


SEQ 0082 


1070 





C 
C 


Z 
z 


ao 


MACY11 30A(1052) 
Pi) 


08-JUL-80 


023312 


023314 
023322 
023330 


023336 


023346 
023350 


023400 


905137 


104415 


005200 
004537 


104017 
006037 


104400 


™N 
Aw 


012737 
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033210 


033462 


033462 


023240 
033334 
000010 


000047 
023660 
023564 


000004 


033676 
034114 
004000 
033676 


102010 
000125 


023242 


001226 
001216 
001220 


77%: 


TST4?: 


COM 
JSR 
377 


DATACLK, 
72$: DATACLK, 


INC 
JSR 
1 


73$: 0 
74$: 0 


75$: JSR 


76$: 


SCOPE 


74$ 
PC,BCCLD 


33 
1 


RO 
RS5,SIMBCC 


73$ 
CALBCC,74$ 
#10,R9 

7e$ 


START AT =1 

;LOAD OUT SILO WITH , SYNCS 
;AND THE CHARACTER 377 

;GET RECEIVER ACTIVE 


:SHIFT BCC ONCE 
;BUMP SHIFT COUNT 


;CALCULATE SOFTWARE BCC LSB 
;ONE SHIFT 

;DATA CHARACTER 

;OLD BCC 

;BR IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
;ERROR, BCC LSB IS SET 

; CONTINUE 

;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS SET 
;ERROR, BCC LSB IS CLEAR 


;SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 
;DONE YET? 

;BR IF NOT DONE 

SCOPE SUBTEST (SWO9=1) 


:SCOPE THIS TEST 


peeeeeeeteeeeeterertereeeene TEST G7 eeeeeeeeeeeeeeeeeeeetenenee 


;*TEST OF CRC OPERATION 


s*USING THE CRC.CCITT POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
#125, VERIFY THE LSB OF THE BCC ON EACH SHIFT 


;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


PIAA AAReeeKeeeeeeKeKeteKeteKKeKKKeHAKeKAKeReteaeKaeKeeenenesen 


TEST 47 
MOV #47,1STNO 
MOV #TSTSO,NEXT 
MOV #64$,L0CK 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 


CLR 4(R1) ;CLEAR PORTS 


ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 ;PUT LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO ;D0 THIS AFTER MODE IS SET 


CLR BITCON : CONSECUTIVE 1"S COUNTER INIT TO 0 


MOV #BIT11,(R1) SET LU LOOP 
64$: JSR PC,CLRIO [CLEAR BCC REGISTERS 
CLR RO START SHIFT COUNTER AT ZERO 
MOV #CRC.CCITT,XPOLY;LOAD POLYNOMIAL FOR SOFTWARE BCC 


MOV #125,66$8; ;LOAD CHAR FOR SOFTWARE BCC 


SEQ 0083 


071 


CZDMF = MACY11 30A(1052) 
0 08: 


CZDMF P11 


08-JUL-8 


4268 023406 005037 


4573 023680 104415 
6575 023434 005200 
4577 023436 004537 


4288 023472 104016 


4290 023474 006037 
4291 023500 013737 


4305 023570 104415 
4307 023574 005200 
4309 023576 004537 


ROR — a oe 
NOC OONOUEwW 


ae 
Www 
mr 
Ww 


104017 


023634 006037 
023640 013737 


023446 
023446 
033336 


000021 
000001 


033210 


033450 


033450 


023444 


033336 


000032 
000001 


033210 


033462 


033462 


023446 


001220 


033332 
023604 


023606 


o- JUL-80 08:26 PAGE 85 


BASIC RECEIVER TESTS 


65$: 


66$: 
673: 


68$: 


69$: 


71$: 


75$: 


76%: 


CLR 
CO" 
JR 
125 


DATACLK, 
DATACLK, 


DATACLK, 
DATACLK, 


INC 
JSR 


67$ 
67$ 
PC,BCCLD 


21 
1 


RO 
RS,SIMBCC 


7 
PC,BCCLD 


RO 
R5,SIMBCC 


73% 
CALBCC, 74% 


:BR IF HARD BCC LS 
;ERROR, BCC LSB IS S$ 
; CONTINUE 

;GET HARDWARE RECELV 
;BR IF HARD BCC LSB | 


> CLEAR r+". ylowse BCC 


:START A 


;LOAD OUT SILO WITH 2 SYNCS 
;AND THE CHARACTER 125 
GET TRANSMITTER ACTIVE 


SHIFT BCC ONCE 
;BUMP SHIFT COUNT 


;CALCULATE SOFTWARE BCC LSB 
;ONE SHIFT 
. CHARACTER 


;OLD BCC 

:BR IF SOFT BCC LSB IS SET 

;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
;ERROR, BCC LSB IS SET 

; CONTINUE 

;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IL SET 
;ERROR, HARD BCC LSB IS CLEAR 


;SHIFT SOFT DATA 
;LOAD OLD SOFT BCC 


;DONE YET? 

;BR IF NOT DONE 

;SCOPE SUBTEST (SWO9=1) 
;NEW SCOPE 


:CLEAR BCC REGISTERS 


;START SHIFT COUNTER AT ZERO 


ott CCITT, XPOLY;LOAD POLYNOMIAL FOR SOFTWARE BCC 


;LOAD CHAR FOR SOFTWARE BCC 
;CLEAR OLD SOFTWARE BCC 


“START AT -1 

LOAD OUT SILO WITH 2 SYNCS 
;AND THE CHARACTER 125 

;GET RECEIVER ACTIVE 

SHIFT BCC ONCE 


;BUMP SHIFT COUNT 
;CALCULATE SOFTWARE BCC LSB 


;ONE SHIFT 
DATA CHARACTER 


:OLD BCC 
;BR IF SOFT BCC LSB 
;GET HARDWARE RECELV 


SHIFT SOFT DATA 
LOAD OLD SOFT BCC 


SEQ 0084 


072 


r— 


roo 


4324 


023646 


023656 


023660 
023666 
023674 


023702 


023712 
023714 


023774 
024000 
024002 


024040 


CZDMF = MACY11 30A(1052) 
CZ7DMF .P11 


022700 
001346 
104401 
104400 


104415 
005200 
004537 


104016 
006037 


Q8-JUL-80 08:26 PAGE 
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000010 


000050 
024224 
023730 


000004 


033676 
034114 
004000 
033676 
102010 
000252 
024012 
024012 
033336 


000021 
000001 


033210 


033450 


033450 


024010 


001226 
001216 
001220 


033332 
024010 
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BASIC RECEIVER TESTS 


77$: 


TS1T50: 


CMP #10,R0 :DONE YET? 

BNE 72% ;BR IF NOT DONE 

SCOP 1 ; SCOPE ase (SWO9=1) 
SCOPE ;SCOPE THIS TES 


peeeneneeerereterereterenene TEST 51 seeeteeenenenerertanererere 


;*TEST OF CRC OPERATION 


S*USING THE CRC.CCITT POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
#252, VERIFY THE LSB OF THE BCC ON EACH SHIFT 


;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


FEMA HREHREHETHEREREEEEEEEEEAEEEEHEREEREHEREHEHAEHH AHHH RE EETS 


TEST 50 
MOV #50,TSINO 
MOV #1ST51,NEXT 
MOV #64$,L0CK 
3R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR 0MC11 
CLR 4(R1) sCLEAR PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 ;PUT LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO :D0 THIS AFTER MODE IS SET 
CLR BITCON ee ae 1°S COUNTER INIT TO 0 
MOV #BIT11,(R1) ;SET LU LOOP 
64$: JSR PC,CLRIO ‘CLEAR Vetc REGISTERS 
CLR RO ;START SHIFT COUNTER AT ZERO 
MOV #CRC. ot i XPOLY;LOAD POLYNOMIAL FOR SOFTWARE BCC 
MOV #252,6 :LOAD CHAR FOR SOFTWARE BCC 
CLR 67$ >CLEAR OLD SOFTWARE BCC 
COM 67$ :START AT -1 
JSR PC ,BCCLD ;LOAD OUT SILO WITH 2 SYNCS 
252 :AND THE CHARACTER 252 
DATACLK, 21 :GET TRANSMITTER ACTIVE 
65$: DATACLK, | sSHIFT BCC ONCE 
INC RO ;BUMP SHIFT COUNT 
JSR R5S,SIMBCC be ie eed SOFTWARE BCC LSB 
1 ONE SHIF 
66%: 0 sDATA cenit es 
67$: 0 OLD BCC 
BCS 68% :BR If SOFT BCC LSB IS SET 
JSR PC ,GETQO :GET HARDWARE TRANSMITTER BCC LSB 
BCC 69% ;BR IF HARD BCC LSB IS CLEAR 
HLT 12 sERROR, BCC LSB IS SET 
Bk 69% ; CONT INUE 
68%: JSR PC ,GETQO ;GET HARDWARE TRANSMITTER BCC LSB 
BCS 69% ;BR IF HARD BCC LSB IS SET 
- HLT 16 sERROR, HARD BCC LSB IS CLEAR 
69%: 
ROR 66% sSHIFT SOFT DATA 





SEQ 0085 


0073 


SS 


| 
| CZDMF P11 


CZDMF = =MACY11 30a(1052) 


O8-JUL-80 08:26 PAGE 


08-JUL-80 08:25 
4380 0240464 013737 


4394 026134 104415 
4396 024140 005200 
4398 026142 004537 


4416 024222 104400 


4427 024224 
4428 024232 


0 

0 
4430 024240 i 

1 

1 


4435 024256 005 


NNN Eh NN 


033334 
000010 


024070 
033676 


102010 


033336 


000032 
000001 


033210 


033462 
033462 


024150 
033334 
000010 


000051 
024546 


024012 


024152 


001226 
091216 


87 
BASIC RECEIVER TESTS 


77$: 


TST51: 


718: 


72%: 


73$: 
74%: 


75$: 


76%: 


SCOPE 


ptteeerererereererereeeeener TEST 5] sewerererecereneenrerereret 


se TRANSMITTER CRC TEST 


PI MAAHAHeHe Kee eeteeeteeeHeRHeHetetteeeeetHeHeteteetteteneeeeres 


: TES! 


MSTCLR 
ROMCLK 


MOV 

cmp 

BNE 
Pi 


DATACLK, 
DATACLK, 


INC 


CALBCC,67$ 
#10,R0 


65% 
#71$,L0CK 
4 /CLRIO 


#252, 
74% 
74$ 
PC ,BCCLD 


32 
1 


RO 
RS ,SIMBCC 


73% 


CALBCC,74$ 
g 


; LOAD ver SOFT BCC 


:DONE Y 
;BR IF NO 


;NEW S 


CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 

#cCRC. suit. XPOLY: ; LOAD POLYNOMIAL FOR SOFTWARE BCC 
738; LOAD CHAR FOR SOFTWARE BCC 

CLEAR OLD ‘ethene BCC 


SSTART AT =1 


;LOAD OUT SILO WITH 2 SYNCS 
AND THE CHARACTER 252 

:GET RECEIVER ACTIVE 

SHIFT BCC ONCE 


BUMP SHIFT COUNT 
i iat SOFTWARE BCC LSB 


;ONE SHIF 


DATA CHARACTER 


OLD 


;BR IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
sERROR, BCC LSB IS SET 


; CONT INUE 


;GET HARDWARE RECEIVER BCC LSB 
:;BR IF HARD BCC LSB SET 
sERROR, BCC LSB IS CLEAR 


;SHIFT SOFT DATA> 
;LOAD OLD SOFT BCC 


:DONE YET? 
:BR IF NOT 


DONE 
OPE SUBTEST (SWO9=1) 


:S¢ 
:SCOPE THIS TES! 


s*USING THE CRC.CCITT POLYNOMINAL, 
:*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT 


:R1 CONTAINS BASE DMC11 ADDRESS 


; MASTER B tT DMC11 


51 

#51, TSTNO 
@TSTS2,NEXT 

CLR 4(R1) 
122117 

JSR PC ,CLRIO 
CLR BITCON 


CLEAR PORTS 

;NEXT WORD is INSTRUCTION, ROMCLK PC=5304 
T LINE UNIT IN BITSTUFF MODE 

DO THIS AFTER MODE IS SET 


CONSECUTIVE 1°S COUNTER INIT TO 0 


DONE 
; SCOPE “Sueres (SWO9=1) 


IS 


SINGLE CLOCK A BINARY 


SEQ 0086 


)074 






CZOMF 
CZDMF P11 


024262 


024446 
024450 


024516 


MACY11 30A(1052) 


012711 


104021 


006037 


022704 
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004000 


024422 


000004 


000004 


000004 


032346 


033776 


033210 


033450 


033450 


024406 
000010 
024406 


024420 
033334 


000010 


000400 


BASIC RECEIVER TESTS 


033332 


024422 


ROMCLK 
ROMCLK 


ROMCLK 


1$: 
2$: 


108: 


3$: 
4$: 


58: 


6%: 


11$: 


SEQ 0087 


MOV #@B1T17,(R1) ;SET LINE UNIT LOOP 
CLR R3 :2ERO BIT COUNT 
CLR RG :R4 CONTAINS CHAR TO BE LOADED IN SILO 
CLR RS =R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OuT 
CLR 4$ : CLEAR SOFT BCC 
CoM 4$ : START AT -1 
MOV #CRC. ccitt, XPOLY- LOAD POL YNOMINAL 
JSR PC,SYNLD LOAD stio wITH 2 SYNCS, SOM SET 
MOV Re CRT “PORT 4 CHAR 
>NEXT woRD 1S TNS TRUCT ION, ROMCLK PC=5304 
122110 LOAD OUT DATA 
INC RG cTNCREMENT TO NEXT CHARACTER 
MOV R4,4(R1) “PORTS CHAR 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 :LOAD OUT DATA 
INC R4 : INCREMENT TO NEXT CHARACTER 
MOV R4,4(R1) =PORT4 CHAR 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ;LOAD OUT DATA 
JSR PC,OCOR :WAIT FOR OCOR 
DATACLK,21 :CLOCK DATA 
MOV R5,10 :START WITH ZERO 
MOV #1,R0 :START COUNT AT 1 
MOV R5,3$ LOAD CHAR FOR SOFT CRC 
DATACLK,1 :SHIFT BCC ONCE 
JSR RS, STFFCK :CHECK BIT STUFFING 
0 : CHARACTER 
1 :SHIFT COUNT 
JSR RS, SIMBCC CALCULATE SOFT BCC 
1 :SOFT SHIFT COUNT 
0 > SOFT CHARACTER 
0 “OLD SOFT BCC 
BCS 5$ :BR IF SOFT BCC LSB IS SET 
JSR PC ,GETQO >GET HARDWARE TRANSMITTER BCC LSB 
BCC 6$ :BR IF OK (CLEARED) 
HLT 20 ;ERROR, BCC LSB WAS SET 
BR 6$ :CONTINUE WITH TEST 
JSR PC,GETQO :GET WAROUARE TRANSMITTER BCC LSB 
BCS 6$ :BR IF Ok (SET 
HLT 21 sERROR, BCC eSB WAS CLEAR 
ROR 10$° SHIFT CHAR FOR STUFF CHECK 
DEC RO :DEC STUFF CHECK SHIFT COUNT 
BNE 11$ :BR IF NOT DONE THIS CHARACTER 
MOV #10,R0 ;RESET BIT COUNT TO 10 
MOV R5,10$ :LOAD NEXT CHAR FOR STUFF CHECK 
ROR 3$ SHIFT SOFT DATA 
MOV CALBCC,4$% LOAD OLD SOFT BCC 
INC R : INCREMENT BIT COUNTER 
CMP #10,R3 “DONE A FULL CHARACTER YET? 
BNE 2$ ‘BR IF NO 
CLR R3 :RESTART BIT COUNTER 
INC R4 : INCREMENT DATA FOR SILO 
CMP #400,R4 “DONE BINARY COUNT YET? 


| CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 89 
075 CZ2DMF P11 08-JUL-80 08:25 BASIC RECEIVER TESTS SEQ 0088 
4492 024522 003404 BLE 9$ 7BR if YES 
4493 024524 010461 000004 MOV R4,4(R1) ;PORT4_DATA 
4494 024530 104414 ROMCLK ;NEXT WORD IS THSTRUCT ION. ROMCLK PC=5304 
4495 024532 122110 122110 ;LOAD OUT DATA 
4496 024534 005205 9$: INC R5 : INCREMENT DATA 
4497 024536 022705 000400 CMP #400,R5 [DONE BINARY PATTERN YET? 
4498 024542 001313 BNE 1$ BR IF NO 
| rr 024544 104400 7$: SCOPE :SCOPE THIS TEST 
4501 
4502 onc eager et nee peng or TEST 52 exeeeeneeeeeeeereraereererere 
| 4503 ;*RECELVER CRC TEST 
4504 Z*USING THE CRC.CCITT POLYNOMINAL, SINGLE CLOCK A BINARY 
4505 "*COUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT 
4506 Ree AH eee eeeeeeeeeteeeeeeeeereeeeeteenneeeteneneeeeteeetetes 
4507 
| 4508 ; TEST 52 
4509 poceceenn------ 
4510 024546 012737 000052 001226 S152: MOV #52, TSTNO 
4511 024554 012737 025104 001216 MOV #135153,NEXT 
4512 ;R1 CONTAINS BASE DMC11 ADDRESS 
4513 024562 104412 MSTCLR ;MASTER CLEAR DMC11 
4514 024564 005061 000004 CLR 4(R1) :CLEAR PORT 
4515 024570 104414 ROMCLK ;NEXT WORD Is INSTRUCTION, ROMCLK PC=5304 
4516 024572 122117 122117 T LINE UNIT IN BITSTUFF MODE 
4517 024574 004737 033676 JSR PC,CLRIO ‘OO THIS AFTER MODE IS SET 
4518 024600 005037 034114 CLR BITCON ;CONSECUTIVE 1°S COUNTER INIT TO 0 
4519 024604 012711 004000 MOV #B1T11,(R1) :SET LINE UNIT LOOP 
4520 024610 005003 CLR R3 ;ZERO BIT COUNT 
4521 024612 005004 CLR R4 :R4 CONTAINS CHAR TO BE LOADED IN SILO 
4522 024614 005005 CLR RS =R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 
4523 024616 005037 024750 CLR 4$ :CLEAR SOFT BCC 
| 4524 024622 005137 024750 COM «4S START AT =1 
4525 024626 012737 102010 033332 MOV #CRC.CCITT,XPOLY ;LOAD POLYNOMINAL 
| 4526 024634 004737 033500 JSR PC,SYNLD ;LOAD SILO WITH 2 SYNCS, SOM SET 
4527 024640 010461 000004 MOV R4,4(R1) :PORT4_ CHAR 
4528 024644 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4529 024646 122110 122110 ;LOAD OUT DATA 
4530 024650 005204 INC R4 : INCREMENT TO NEXT CHARACTER 
4531 024652 010461 000004 MOV R4,4(R1) :PORT4_ CHAR 
| 4532 024656 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4533 024660 122110 122110 ;LOAD OUT DATA 
4534 024662 005204 INC R4 ; INCREMENT TO NEXT CHARACTER 
4535 024 010461 000004 MOV R4,4(R1) :PORT4_CHAR 
4536 024670 104414 ROMCLK ;NEXT WORD IS Tres Tue 10m. ROMCLK PC=5304 
4537 026672 122110 122110 ;LOAD OUT DATA 
4538 024674 004737 032346 JSR PC,OCOR WAIT FOR OCOR 
4539 024700 104415 000032 DATACLK, 32 CLOCK eophe 
4540 024704 010537 024734 MOV R5,10$ ;START WITH ZERO 
4541 024710 005237 024734 INC 10$ ; TRANSMITTER IS ONE CHAR AHEAD 
4542 024714 012700 000010 MOV #10,R0 :RO = CHAR COUNT 
4543 024720 010537 024746 1$: MOV R5, 38 [LOAD CHAR FOR SOFT CRC 
4544 024724 104415 000001 2$: DATACLK,1 ;SHIFT BCC ONCE 
4545 024730 004537 033776 JSR RS, STFFCK ZCHECK BIT STUFFING 
4546 024734 000000 10$: 0 ; CHARACTER 


4547 024736 000001 1 SHIFT COUNT 
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033210 


033462 


033462 


024734 


000010 


024734 


024746 
033334 


000010 


024750 


000400 


000004 


000400 


000053 001226 
025606 0601216 


000004 


TST53: 


3$: 
4$: 


5$: 


6$: 


11$: 


ROMCLK 
9$: 


7S 


peeeeeeeeeerereerrererereene 


STNO 


MSTCLR 
ROMCLK 


R5S,SIMBCC 


5$ 
PC,GETQI 
6$ 
22 
6$ 
PC,GETQ1 
6$ 
23 


;CALCULATE SOFT BCC 


;SOFT SHIFT COUNT 
; SOFT Le Fl 
OLD SOFT BCC 
;BR IF SOFT BCC LSB IS SET 

;GET HARDWARE RECEIVER BCC LSB 
;BR IF OK (CLEARED) 
;ERROR, BCC LSB WAS SET 
SCONTINUE WITH TEST 

;GET HARDWARE RECEIVER BCC LSB 

7;BR IF OK (SET) 
;ERROR, BCC LSB WAS CLEAR 


SHIFT CHAR FOR STUFF CHECK 
;DEC STUFF CHECK SHIFT COUNT 
;BR IF NOT DONE THIS CHARACTER 
;RESET BIT COUNT TO 10 

;LOAD NEXT CHAR FOR STUFF CHECK 
; TRANSMITTER IS 2 CHAR AHEAD 


;SHIFT SOFT DATA 
;LOAD OLD SOFT BCC 
; INCREMENT BIT COUNTER 
: DONE AF FULL CHARACTER YET? 
;RESTART BIT COUNTER 
; INCREMENT DATA FOR SILO 
:DONE BINARY COUNT YET? 
:BR IF YES 
DATA 


PORTS 
sNEXT woRD 1S INSTRUCTION, ROMCLK PC=5304 
LOAD DATA 


OUT 
“INCREMENT DATA 
[DONE BINARY PATTERN YET? 


:BR IF NO 
;SCOPE THIS TEST 


ST 53 xeaeeeaneeaererereererereee 


;* TRANSMITTER BITSTUFF CRC TEST 
;*THIS TEST TRANSMITS A FOUR CHARACTER a Babes CRC 
;*BOTH DATA AND THE BCC ARE VERIFIED IN THE B 


;tWINDOW. THE FOUR CHARACTERS ARE 0, 


125,252, 77 


SEQ 0089 


;tTHE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC 


Ree eeeeeeeeeeeeeeeeeteeeeeeeeeeteneetreeteenteeeeereerenereees 


s Fest $3 


#53,7 


Histse. NEXT 


CLR 


;R1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC11 


4(R1) 





;CLEAR PORTS 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
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| 4604 025130 122117 122117 :PUT LINE UNIT IN BITSTUFF MODE 
| 4605 025132 004737 033676 JSR PC, CLIO “DO THIS AFTER MODE IS SET 
| 4606 025136 005037 034114 CLR —s-BITCON “CONSECUTIVE 1°S COUNTER INIT TO 0 
| 608 LOAD OUT DATA SILO 
4610 025142 012711 004000 MOVs #BIT11, (R1) :SET LINE UNIT LOOP 
| 4611 025146 012704 034116 MOVs #MESDAT..RG “LOAD POINTER TO DATA 
4612 025152 005037 025262 CLR 10$ : CLEAR SOFT BCC 
4613 025156 005137 025262 COM sé “START AT <1 
4614 025162 012700 000004 MOVs #4, RO ST OAD CHARACTER COUNT 
4615 025166 004737 033500 JSR PCL SYNLD “LOAD 2 FLAG CHARACTERS IN OUT SILO 
4616 025172 004737 032500 JSR. PC LOUTRDY “WAIT FOR OUTRDY 
4617 025176 004537 033634 1SR. «RS LMESLD SLOAD SILO WITH 4 CHAR MESS 
4618 025202 034116 MESDAT ADDRESS OF MESSAGE 
4619 025204 000004 4 “NUMBER OF CHARACTERS 
4620 025206 004737 033610 Jsk PC EOM “LOAD GARBAGE CHARACTER, WITH EOM SET 
4621 025212 004737 033610 JSR. «BC LEOM 
4622 025216 004737 032346 SSRs PC LOCOR :WAIT FOR OCOR 
4623 025222 005003 CLR R3 “CLEAR BIT COUNTER 
4624 025224 104415 000022 DATACLK, 22 “CLOCK DATA 
4625 025230 112405 12$: MOVB.  (R4)+,R5 “LOAD RS WITH CHAR 
4626 025232 010502 MOVs RS.R2 “LOAD R2 WITH CHAR 
4628 SCHECK FIRST FOUR CHARACTER MESSAGE 
rr >IN THE BIT WINDOW (0,125,252,377) 
4631 025234 010537 025330 MOVs RS, 718 LOAD FOR STUFF CHECK 
4632 025240 012737 102010 033332 MOVs #CRC. CCITT, XPOLY’ =LOAD POLYNOMIAL 
4633 025246 010537 025260 MOV —s- RS, 678 sLOAD SOFT CHAR FOR BCC 
4634 025252 004537 033210 JSR «RS. SIMBCC “CALCULATE SOFT BCC 
4635 025256 000010 10 “SHIFT COUNT 
4636 025260 000000 678: 0 * CHARACTER 
4637 025262 000000 10$: 0 “OLD BCC 
4638 025264 013737 033334 025262 MOV —sCALBCC,, 108 “LOAD SOFT BCC FOR NEXT SHIFT 
4639 025272 104415 000001 64$:  DATACLK, 1 “SHIFT DATA IN TO BIT WINDOW 
4640 025276 106002 RORB. R2 “SHIFT SOFT DATA 
4641 025300 103005 BCC 65$ “BR IF A SPACE 
4642 025302 004737 032314 JSR PC. GETS “LOOK AT BIT WINDOW 
4643 025306 103406 BCS tséS “BR IF OK (MARK) 
4644 025310 104006 HLT 6 “ERROR, BIT WINDOW WAS A SPACE 
4645 025312 000404 BR 66% : CONTINUE 
4646 025314 004737 032314 658: JSR PC GETSI ‘LOOK AT BIT WINDOW 
4647 025320 103001 BCC 668 “BR IF OK (SPACE) 
4648 025322 104006 HLT 6 “ERROR, BIT WINDOW WAS A MARK 
4649 025324 668: 
4650 025324 004537 033776 JSR sR STFFCK 
| 4651 025380 000000 718: 0 
4652 025332 000001 1 
4653 0253384 110237 025330 MOVB —-R2, 718 <SHIFT FOR NEXT STUFF CHECK 
| 4654 025340 005203 INC R3 “BUMP BIT COUNTER 
| 4655 025342 022703 000010 CMP #10, R3 :DONE FULL 8 BITS YEI 
4656 025346 001351 BNE 64% R IF NO 
| 4657 025350 005003 CLR RS “CLEAR BIT COUNTER 
| 4658 025352 005300 DEC RO “DEC CHARACTER COUNT 
4659 025354 001325 BNE 12$ SBR IF NOT DONE YET 
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025450 


025452 


005137 


104014 


004537 


005003 


012737 


SSRSocse 
FINSRS = 
WNC ENS 
oonow— 
WW -NuM 


— 
2s 
ror 
-—-OoO— 
Pw 
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032314 


033776 


025430 
000020 


000176 
000001 
001252 


032314 


032314 


000010 


001252 


74$: 


75%: 


68$: 


69$: 


70$: 
72$: 


MOV 


4%: 


CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


COM 


CALBCC 
CALBCC,RO 
72$ 


9$ 
PC,GETSI 
70$ 

14 

70$ 

PC GETS] 
70$ 

14 
R5,STFFCK 


RO, 728 
R3 
#20,R3 
68$ 
R3 


;ADJUST BCC FOR SDLC 
;PUT BCC _IN RO 
;LOAD BCC FOR STUFF CHECK 
SHIFT HARDWARE BCC 
;SHIFT SOFT BCC 
;BR IF CARRY CLEAR 
;LOOK AT BIT — 
:BR IF OK (MAR 
ERROR, CRC URONG (SPACE) 
: CONTINUE 
: LOOK AT BIT WINDOW 

R IF OK (SPACE) 
TERROR, CRC WRONG (MARK) 


; CHECK BCC CHAR FOR ZERO STUFFS 
; CHARACTER 

;SHIFT COUNT 

SHIFT SOFTBCC ONCE 

;BUMP BIT COUNTER 

;FINISHED BCC YET? 


BR IF NO 
;CLEAR BIT COUNTER 


CHECK FOR FLAG TO FOLLOW BCC 
atte nth hie ;PUT FLAG CHARACTER IN TEMP3 
L 


OCK FLAG ONCE 
;SHIFT SOFT FLAG 
:BR IF BIT 1S MARK 
re AT BIT WINDOW 


Ok 
ERROR IN FLAG CHAR 
ae AT BIT WINDOW 
:BR IF OK 


ERROR IN FLAG CHAR 
; INC BIT COUNT 
:FLAG DONE YET? 

BR IF NO 

;CLEAR BIT COUNT 


:CHECK TO SEE IF TRANSMITTER IS MARKING 


DATACLK 
JSR 


C 
DATACLE, 


;CLOCK TRANSMITTER 
;LOOK AT WINDOW 

:1T SHOULD BE MARKING 
ERROR, BIT WAS A SPACE 
BUMP BIT COUNTER 
;DONE YET 


;BR IF NO 

0 GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
CLEAR BIT COUNTER 
SHIFT OUT NEXT BIT 


SEQ 0091 
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032314 


000020 


000054 001226 
026030 001214 


000004 


033676 


033154 


900004 001252 


TSTS4: 


JSR re, gern ;LOOK AT BIT ae 


BCS ;BR IF IT ISAM 
HLT 3 ;ERROR, TRANSMITTER IS NOT MARKING 
INC R3 ; INC BiT COUNT 
CMP #20,R3 :DONE YET? 
BNE 4$ BR IF NO 
5$: SCOPE ;SCOPE THIS TEST 


peeeoeeeeeeeercerererererene TEST 54 teeeetenrenenereeereeteenre 
s*RECEIVER BITSTUFF CRC TEST 
s*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC 
;*AND VERIFYS CORRECT DATA RECEPTION AND BCC MATCH 
;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 


; TTTTITITITILI ELITE LETT TTIT LITT L 


; TEST 54 
MOV #54,TSTNO 
MOV #TSTS5,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMCi1 
CLR 4(R1) ;CLEAR PORTS 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 ;PUT LINE UNIT IN BITSTUFF MODE 


JSR PC,CLRIO :D0 THIS AFTER MODE IS SET 

MOV weitit, (R1) SET LINE UNIT LOOP 

MOV #MESDAT,R2 ;LOAD POINTER TO DATA 

MOV #4 RO ;LOAD CHARACTER COUNT 

JSR PC,SYNLD ;LOAD 2 FLAG CHARACTERS IN OUT SILO 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 

JSR RS. MESLD ;LOAD SILO WITH 4 CHAR MESS 

MESDAT ;ADDRESS OF MESSAGE 

4 NUMBER OF CHARACTERS 

JSR PC,E0M ;LOAD GARBAGE CHARACTER, WITH EOM SET 
JSR PC,EOM 


JSR PC ,OCOR ;WAIT FOR OCOR 


SATACLE. 11§ :CLOCK DATA 
3$: JSR PC, INRDY WAIT FOR INRDY 
ROMCLK NEXT wok 1S INSTRUCTION, ROMCLK PC=5304 
021204 :GET IN DATA 
MOV 4(R1) RG :PUT "'FOUND'' IN R4 
MOVB = (R2) +. R5 [PUT EXPECTED’ IN RS 
CMPB aR, RG : COMPARE RECEIVED DATA 
BEQ “BR IF OK 
HLT 10 “DATA ERROR 
1$ DEC RO “DEC CHARACTER COUNT 


BNE 3$ :BR IF NOT DONE YET 


;CHECK TO SEE THAT IN BCC MATCH IS SET 


JSR PC, INRDY WAIT FOR INRDY 

ROMCLK pNEXT wokd IS INSTRUCTION, ROMCLK PC=5304 
021204 GET FIRST HALF OF CRC 
MOVB 4(R1), TEMPS ;PUT IN TEMPS 





080 
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000004 


177400 001252 
033154 


000004 
000374 
000003 


000055 
027430 


001226 
001216 
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TST55: 


ROMCLK 


BIC #177400, TEMP3 se HI BYTE 


JSR PC, INRDY WAIT FOR INRDY 
“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 
4(R1) RG :PUT "'FOUND'’ IN R& 
#374 RG [CLEAR UNWANTED BITS 
#3,Rr5 :PUT EXPECTED’ IN RS 
R5 Ra [ARE IN BCC MATCH AND BI 0CK END SET? 
HLT 42 :IN BCC MATCH ERROR 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 :GET LAST HALF 
SCOPE ‘SCOPE THIS TEST 


petted eeeereeeeererereeeeee TEST 55 xeeeneeeeeetarenteeeeereres 


>*BITSTUFF EOM FUNCTION TEST 

s*THIS TEST LOADS OUT SILO WITH: 2 FLAGS,4 CHAR MESSAGE ,EOM 

;*4 CHARACTER MESS,EOM. THE DATA STREAM IS CHECKED TO BE 

>*4 CHAR,BCC,FLAG, r CHAR ,BCC,FLAG,MARKS. THIS TEST VERIFYS THAT 
*THE CHARCTERS LOADED WITH EOM SET ARE LOST 

s*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW 

;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 

:*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED 


s eReeneeeRrerereerererettenseneenereenanerneeceneerereeeoeseess 


5 TEST 3 
MOV #55,TSTNO 
MOV #TSTS6.NEXT 
3R1 CONTAINS yf ede ADDRESS 
MSTCLR “MASTER CLEAR DMC 
CLR 4(R1) ;CLEAR PORTS 
ROMCLK NEXT WORD is INSTRUCTION, ROMCLK PC=5304 
122117 T LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO A THIS AFTER MODE IS SET 
CLR BITCON ;CONSECUTIVE 1°S COUNTER INIT TO 0 
;LOAD OUT DATA SILO 
MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
MOV #MESDAT,R4S 3 LOAD oie TO DATA 
CLR 10$ ;CLEAR SOFT BCC 
COM 10$ sSTART AT -1 
MOV #4,R0 ;LOAD CHARACTER COUNT 
JSR PC,SYNLD ;LOAD 2 FLAG CHARACTERS IN OUT SILO 
JSR PC ,OUTRDY sWAIT FOR OUTRDY 
JSR R5,MESLD ;LOAD SILO WITH 4 CHAR MESS 
MESDAT [ADDRESS OF MESSAGE 
& sNUMBER OF CHARACTERS 


JSR PC,EOM [LOAD GARBAGE CHARACTER, WITH EOM SET 
JSR PC,EOM 

JSR R5,MESLD ;LOAD FOUR MORE CHARACTERS 

MESDAT sADDRESS OF MESSAGE 

“ ;NUMBER OF CHACTERS 


ene esessesssssensnetnseeessisstessssiensneeteeioer 


SEQ 0093 
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004737 


010502 


010537 
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000000 


001325 
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12$: 


67$: 
10$: 


68$: 


69$: 


CLR 
DATACLK 
MOVB 
MOV 


dD 8 


PC,E0Om 


R3 
22 


(R4)+,R5 
R5,R2 


;SET EOM 

;SET EOM 

;WAIT FOR OCOR 
;CLEAR BIT COUNTER 
;CLOCK DATA 

;LOAD R5 WITH CHAR 
;LOAD R2 WITH CHAR 


CHECK FIRST FOUR CHARACTER MESSAGE 
:IN THE BIT WINDOW (0,125,252,377) 


R5,71$ 
ache CCITT, ,XPOLY’ 


5 
R5,SIMBCC 


LSE E190 


R2 

65$ 
PC,GETSI 
66% 


66$ 
PC,GETSI 
66% 

6 
R5,STFFCK 


LOAD FOR STUFF CHECK 
;LOAD POLYNOMIAL 

LOAD SOFT CHAR FOR BCC 

CALCULATE SOFT BCC 


:SHIFT COUNT 
; CHARACTER 


;OLD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 
;SHIFT DATA IN TO BIT WINDOW 
SHIFT SOFT DATA 

;BR IF A SPACE 

;LOOK AT BIT WINDOW 

;BR IF OK (MARK) 


ERROR, BIT WINDOW WAS A SPACE 
: CONT INU E 

;LOOK AT BIT WINDOW 

;3R IF OK (SPACE) 


TERROR, BIT WINDOW WAS A MARK 


SHIFT FOR NEXT STUFF CHECK 
;BUMP BIT COUNTER 

;DONE FULL 8 BITS YET 

;BR IF NO 

;CLEAR BIT COUNTER 

;DEC CHARACTER COUNT 

;BR IF NOT DONE YET 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


MOV 
ROR 


CALBCC 
CALBCC,RO 
72$ 


ADJUST BCC FOR SDLC 

;PuUT BCC IN RO 

;LOAD BCC FOR STUFF CHECK 
;SHIFT HARDWARE BCC 
;SHIFT SOFT BCC 

BR IF CARRY CLEAR 


;LOOK AT BIT a 

;BR IF OK (MARK 

ERROR, CRC URONG (SPACE) 
; CONTINUE 

:LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 


TERROR, CRC WRONG (MARK) 


SEQ 0094 
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4884 026370 70$: 

4885 026370 004537 033776 JSR RS,STFFCK sCHECK BCC CHAR FOR ZERO STUFFS 
4886 026374 000000 72$: 0 : CHARACTER 

4887 026376 000001 1 : SHIFT COUNT 

4888 026400 010037 026374 MOV RO,72$ sSHIFT SOFTBCC ONCE 

4889 026404 005203 INC R3 :BUMP BIT COUNTER 

4890 026406 022703 000020 CMP #20,R3 sFINISHED BCC YET? 

4891 076412 001351 BNE 68% ‘BR IF NO 

rr of 026414 005003 CLR R3 ;CLEAR BIT COUNTER 

ikea CHECK FOR FLAG TO FOLLOW BCC 

4896 026416 012737 000176 001252 MOV #°B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMPS 
4897 026424 104415 000001 73$: DATACLK, 1 ;CLOCK FLAG ONCE 

4898 026430 106037 001252 RORB TEMPS SHIFT SOFT FLAG 

4899 026434 103405 BCS 74% :BR IF BIT IS MARK 

4900 026436 004737 032314 JSR PC,GETSI :LOOK AT BIT WINDOW 

4901 026442 103006 BCC 75$ ;BR IF OK 

4902 026444 104026 HLT 26 ;ERROR IN FLAG CHAR 

4903 026446 000404 BR 75% 

4904 026450 004737 032314 74$: JSR PC,GETSI ;LOOK AT BIT WINDOW 

4905 026454 103401 BCS 75$ ;BR IF OK 

4906 026456 104026 HLT 26 sERROR IN FLAG CHAR 

4907 026460 005203 75$: INC R3 ; INC BIT COUNT 

4908 026462 022703 000010 CMP #10,R3 “FLAG DONE YET? 

4909 026466 001356 BNE 73% ;BR IF NO 

4910 026470 005003 CLR R3 ;CLEAR BIT COUNT 

4911 026472 012700 000004 MOV #4,R0 :RESET CHARACTER COUNTER 
4912 026476 012704 034116 MOV #MESDAT,R4 ;LOAD MESSAGE POINTER 

4913 026502 005037 026544 CLR 11$ :CLR SOFT BCC 

4914 026506 005137 026544 COM 11$ sADJUST TO -1 FOR SDLC 

4915 026512 112405 13$: MOVB (R4)+,R5 ;LOAD CHAR IN RS 

et 026514 010502 MOV R5,R2 sLOAD CHAR IN R2 

reas sCHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377) 
4920 026516 010537 026612 MOV R5,83$ :LOAD FOR STUFF CHECK 

4921 026522 012737 102010 033332 MOV #CRC.CCITT,XPOLY sLOAD POLYNOMIAL 
4922 026530 010537 026542 MOV R5,79% sLOAD SOFT CHAR FOR BCC 

4923 026534 004537 033210 JSR R5,SIMBCC sCALCULATE SOFT BCC 

4924 026540 000010 10 SHIFT COUNT 

4925 026542 000000 79$: 0 : CHARACTER 

4926 026544 000000 11$: 0 ;0LD BCC 

4927 026546 013737 033334 026544 MOV CALBCC,11$ :LOAD SOFT BCC FOR NEXT? SHIFT 
4928 026554 104415 000001 76%: DATACLK, 1 SHIFT DATA IN TO BIT WINDOW 
4929 026560 106002 RORB R2 ;SHIFT SOFT DATA 

4930 026562 103005 BCC 77% :BR IF A SPACE 

4931 026564 004737 032314 JSR PC,GETSI ;LOOK AT BIT WINDOW 

4932 026570 103406 BCS 78$ :BR IF OK (MARK) 

4933 026572 104006 HLT 6 ERROR, BIT WINDOW WAS A SPACE e. 
4934 026574 000404 BR 78¢ > CONTINUE 

4935 026576 004737 032314 77%: JSR PC ,GETSI ;LOOK AT BIT WINDOW 

4936 026602 103001 BCC 78$ BR IF OK (SPACE) 

4937 026604 104006 KLT 6 sERROR, BIT WINDOW WAS A MARK 
4938 026606 78$: 


4939 026606 004537 0335776 JSR RS,STFFCK 
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026612 


026636 


026640 


026732 


026734 


027006 


027010 


000000 


001325 


005137 


104014 


004537 


005003 


012737 
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104415 
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026612 
000010 


032314 


033776 


026712 
000020 


000176 
000001 
001252 


032314 


032314 


000010 


000001 


001252 


87$: 


83$: p 

MOVB R2,83$ 
INC R3 

CMP #10,R3 
BNE 76$ 
CLR R3 

DEC RO 

BNE 13% 


CHECK BCC FOR PR 


com CALBCC 
MOV CALBCC,RO 


MOV RO, 84$ 
80$: DATACLK,1 
ROR RO 
BCC 81$ 
JSR PC ,GETSI 
BCS 82% 
HLT 14 
BR 82$ 
81$: JSR PC,GETSI 
BCC 82% 
HLT 14 
82$: 
JSR RS,STFFCK 
R4$: 0 
i 
MOV RO, 84% 
INC R3 
CMP #20,R3 
BNE 80% 
CLR R3 


;CHECK FOR FLAG T 
MOV #*B<01111110>,TEM 
% 1 


RORB TEMPS 
BCS 86% 
JSR PC,GETSI 
BCC 87% 
HLT 26 
BR 87% 
JSR PC,GETSI 
BCS 87$ 
HLT 26 
INC R3 
CMP #10,R3 
BNE 85 
CLR R3 
sCHECK TO SEE IF 
2%: DATACLK, 1 


SHIFT FOP NEXT STUFF CHECK 
;BUMP BIT COUNTER 
aoe wee 8 BITS YET 


;BR 

;CLEAR BIT COUNTER 
;DEC CHARACTER COUNT 
:BR IF NOT DONE YET 


ECEDING MESSAGE IN THE BIT WINDOW 


;ADJUST BCC FOR SDLC 
;PUT BCC IN RO 

sLOAD BCC FOR STUFF CHECK 
sSHIFT HARDWARE BCC 
SHIFT SOFT BCC 

;BR IF CARRY CLEAR 

;LOOK AT BIT WINDOW 

sBR IF OK (MARK) 

sERROR, CRC WRONG (SPACE) 
; CONTINUE 

;LOOK AT BIT WINDOW 

:BR IF OK (SPACE) 

sERROR, CRC WRONG (MARK) 


;CHECK BCC CHAR FOR ZERO STUFFS 
; CHARACTER 

SHIFT COUNT 

SHIFT SOFTBCC ONCE 

;BUMP BIT COUNTER 

gE aed BCC YET? 


:BR IF 
; CLEAR BIT COUNTER 
O FOLLOW BCC 
P3 ;PUT FLAG CHARACTER IN TEMPS 


sCLOCK FLAG ONCE 
sSHIFT SOFT FLAG 


;BR IF BIT IS MARK 
;LOOK AT BIT WINDOW 
;BR IF OK 

;ERROR IN FLAG CHAR 


;LOOK AT BIT WINDOW 
:BR IF OK 
;ERROR IN FLAG CHAR 


:INC BIT COUNT 
;FLAG DONE YET? 
;BR IF NO 

CLEAR BIT COUNT 


TRANSMITTER IS MARKING 
sCLOCK TRANSMITTER 


SEQ 0096 
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4996 027014 004737 032314 JSR PC,GETSI ;LOOK AT WINDOW 
4997 027020 103401 BCS 3$ 311 SHOULD BE MARKING 
4998 027022 104024 HLT 24 sERROR, BIT WAS A SPACE 
4999 027024 005203 3$: INC R3 ;BUMP BIT COUNTER 
5000 027026 022703 000007 CMP #7 ,R3 DONE YET 
5001 027032 001366 BNE 2$ :BR IF NO 
5002 027034 104415 000010 DATACLK, 10 GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
5003 027040 005003 CLR R3 ;CLEAR BIT COUNTER 
5004 027042 104415 000001 4$: DATACLK, 1 SHIFT OUT NEXT BIT 
5005 027046 004737 032314 JSR PC,GETS1 ;LOOK AT BIT WINDOW 
5006 027052 103401 BCS +4 ;BR IF IT IS A MARK 
5007 027054 104024 HLT 24 sERROR, TRANSMITTER IS NOT MARKING 
5008 027056 005203 INC R3 :INC BIT COUNT 
5009 027060 022703 000020 CMP #20,R3 DONE YET? 
oA 027064 001366 BNE 4% BR IF NO 
$012 sCHECK TO SEE THAT FIRST FOUR Cannat TER MESSAGE 
rs AF TWAS RECEIVED CORRECTLY (0,125,252,377 
5015 027066 104415 000001 DATACLK, 1 :GET LAST BIT IN RECEIVER 
5016 027072 012703 000004 MOV #4 R3 ;R3=CHARACTER COUNT 
5017 027076 012702 034116 MOV #MESDAT,R2 sLOAD MESSAGE pOrnrEn IN R2 
5018 027102 004737 033154 40$: JSR PCLINRDY. “WAIT FOR INRD 
5019 027106 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5020 027110 021204 021204 
$021 027112 016104 000004 MOV 4(R1), RG ;PUT ''FOUND'' IN R4 
5022 027116 112205 MOVB (R2)+,R5 PUT "EXPECTED'’ IN RS 
5023 027120 120504 CMPB R5,R4 :1S RECEIVED DATA CORRECT? 
5024 027122 001401 BEQ 41$ “BR IF YES 
5025 027124 104010 HLT 10 sRECEIVE DATA ERROR 
5026 027126 005303 41$: DEC R3 DEC CHARACTER COUNT 
5027 027130 001364 BNE 408% “BR IF NOT DONE YET 
5028 
5029 
5030 :CHECK TO SEE THAT IN BCC MATCH IS SET 
$4 sAND THAT THE BCC WAS RECEIVED CORRECTLY 
5033 027132 004737 033154 JER PC, INRDY WAIT FOR INRDY 
5034 027136 104414 ROMCLK sNEXT woRD 1S INSTRUCTION, ROMCLK PC=5304 
5035 027140 021204 021204 GET FIRST HALF OF CRC 
5036 027142 116137 000004 001252 MOVB 4(R1),TEMP3 PUT IN TEMP3 
5037 027150 042737 177400 001252 BIC #177400, TEMPS  :CLEAR HI BYTE 
5038 027156 004737 033154 JSR PC, INRDY “WAIT FOR INRDY 
5039 027162 104414 ROMCLK sNEXT word 1S INSTRUCTION, ROMCLK PC=5304 
5040 027164 021244 021244 
5041 027166 016104 000004 MOV 4(R1),R4 PUT ‘FOUND’ IN R4 
§042 027172 042704 000374 BIC #374,R4 :CLEAR UNWANTED BITS 
$043 027176 012705 000003 MOV #3,R PUT "‘EXPECTED’’ IN RS 
5044 027202 120504 CMPB R5,R4 ARE IN BCC MATCH AND BLOCK END SET? 
5045 027204 001401 BEQ 50$ 
5046 027206 104042 HLT 42 > IN BCC MATCH ERROR 
5047 027210 50$: 
5048 027210 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5049 027212 021204 021204 :GET LAST HALF 
5050 027214 116137 000004 001251 MOVB 4(R1),TEMP2¢1 :PUT IN TEMP2 
5051 027222 042737 000377 001250 BIC #377, TEMP2 sCLEAR LO BYTE 
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5052 027230 053737 001250 001252 
5053 027236 023737 033334 001252 


5055 027246 104027 


5056 

5057 

5058 

5059 

5060 027250 012703 000004 
5061 027254 012702 034116 
5062 027260 004737 033154 
5063 027264 104414 

5 027266 021204 

5065 027270 016104 000004 
5 027274 112205 

5067 027276 120504 

5068 027300 001401 

5069 027302 104010 


5071 027306 001364 


5077 027310 004737 033154 


5080 027320 116137 000004 00125 
177400 00125 
5082 027334 004737 033154 


5084 

5085 027344 016104 000004 
5086 027350 042704 000374 
5087 027354 012705 000003 


5094 027372 116137 000004 001251 
5095 027400 042737 000377 001250 
5096 027406 053737 001250 001252 
097 027414 023737 033334 001252 


5100 027426 104400 
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42$: 


43$: 
ROMCLK 


44$%: 


ROMCLK 


ROMCLK 


5$: 


BIS TEMP2, TEMPS 316 BIT BCC at IN TEMP3 
CMP CALBCC, TEMPS sI1S IT CORRE 

BEQ 42% ;BR IF OK 

HLT 27 


;CHECK TO SEE THAT SECOND FOUR Yee MESSAGE 
[WAS RECEIVED CORRECTLY (0,125,252,3 


MOV #4 ,R3 ;R3=CHARACTER COUNT 
MOV #MESDAT,R2 LOAD MESSAGE POINTER IN R2 
JSR PC, INRDY WAIT FOR INRDY 
sNEXT woRD IS INSTRUCTION, ROMCLK PC=5504 
021204 
MOV 4(R1),R4 ;PUT ‘'FOUND'' IN RG 
MOVB (R2)+,R5 ;PUT “‘EXPECTED’’ IN RS 
CMPB R5,R4 71S RECEIVED DATA CORRECT? 
BEC 44% ;BR IF YES 
HLT 10 RECEIVE DATA ERROR 
DEC R3 ;DEC CHARACTER COUNT 
BNE 43% ;BP IF NOT DONE YET 


;CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 


JSR PC, INRDY WAIT FOR INRDY 
sNEXT woRD IS INSTRUCTION, ROMCLK PC=5304 
021204 ET FIRST HALF OF CRC 
MOVB 4(R1),TEMP3 “PUT IN TEMP3 
BIC #177400, TEMP3 CLEAR HI] BYTE 
JSR PC, INRDY WAIT FOR INRDY 
sNEXT worD IS INSTRUCTION, ROMCLK PC=5304 
021244 
4(R1),R4 PUT “"FOUND’’ IN R4 
#374 ,R4 : CLEAR UNWANTED BITS 
#3,R5 PUT “‘EXPECTED'’ IN RS 
a ;ARE IN BCC MATCH AND BLOCK END SET? 
HLT 42 > IN BCC MATCH ERROR 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 ;GET LAST HALF 
MOVB 4(R1),TEMP2+1 ;PuUT IN TEMP2 
BIC #377, TEMP2 CLEAR LO BYTE 
BIS TEMP2, TEMPS 316 BIT BCC NOW IN TEMPS 


CMP CALBCC, TEMPS s1S 11 CORRECT? 
BEQ 5$ :BR IF OK 

HLT 27 

SCOPE :SCOPE THIS TEST 


peeeeceenereneerereerereenee TEST 56 senneneaneenerenerereeneere 


s*BITSTUFF EOM FUNCTION TEST 

:*THIS TEST LOADS OUT SILO WITH: 2 FLAGS,4 CHAR MESSAGE .EOM 
>#S0M,4 CHAR MESS,EOM. THE DATA STREAM 1§ CHECKED TO BE 

504 CHAR BCC, FLAG.4 CHAR, BCC. FLAG, MARKS. THIS TEST VERIFYS THAT 


SEQ 0098 


Se a: eae 5: 


(CZDMF = MACY11 30A(1052) O8-JUL-80 08:26 PAGE 100 
)086 CZ7DMF P11 08-JUL-80 08:25 BASIC RECEIVER TESTS SEQ 0099 

5108 ;*THE CHARCTERS LOADED WITH EOM SET ARE LOST 
5109 ;*ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BCC 
5110 ;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW 
§111 ;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 
S112 s*RECELVED DATA IS VERIFIED, AND IN BCC MATCH IS (CHECKED 
$113 H LRHHHHHHHHKEKHEHARHHHHEEHHHHHEHHEHRETEREEHHHEREREHEER ARETE EEREEEE 
5114 

} §115 TEST 56 
5116 ee 
5117 027430 012737 000056 001226 15156: MOV #56,TS™NO 
5118 027436 012737 031110 001216 MOV @TSTS7,NEXT 
$119 3R1 CONTAINS BASE DMC11 ADDRESS 
5120 027444 104412 MSTCLR MASTER CLEAR DMC11 
5121 027446 005061 000004 CLR 4(R1) :CLEAR PORTS 
5122 027452 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5123 027454 122117 122117 ;PUT LINE UNIT IN BITSTUFF MODE 
5124 027456 004737 033676 JSR PC, CLRIO :D0 THIS AFTER MODE IS SET 
gigs 027462 005037 034114 CLR BITCON S CONSECUTIVE 1°S COUNTER INIT TO 0 
ant ;LOAD OUT DATA SILO 
5129 027466 012711 004000 MOV #BIT11,(R1) ;SET LINE UNiT LOOP 
5130 027472 012704 034116 MOV #MESDAT RG ;LOAD POINTER TO DATA 
5131 027476 005037 027632 CLR 10% :CLEAR SOFT BCC 
5132 027502 005137 027632 COM 10$ ;START AT -1 
5133 027506 012700 000004 MOV #4,R0 ;LOAD CHARACTER COUNT 
5134 627512 004737 033500 JSR PC,SYNLD ;LOAD 2 FLAG CHARACTERS iN OUT SILO 
5135 027516 004737 032500 JSR PC ,OUTRDY WAIT FOR OUTRDY | 
5136 027522 004537 033634 JSR RS.MESLD ;LOAD SILO WITH 4 CHAR MESS 
5137 027526 034116 MESDAT ADDRESS OF MESSAGE 
5138 027530 000004 4 ;NUMBER OF CHARACTERS 
5139 027532 004737 033610 JSR PC,EOM ;LOAD GARBAGE CHARACTER, WITH EOM SET 
5140 7536 004737 033610 JSR PC,EOM 
5141 027542 004737 033560 JSR PC,SOM ;LOAD GARBAGE CHAR WITH SOM SET 
5142 027546 004537 033634 JSR RS,MESLD ;LOAD FOUR MORE CHARACTERS 
5143 027552 034116 MESDAT ;ADDRESS OF MESSAGE | 
5144 027554 000004 4 sNUMBER OF CHACTERS 
5145 027556 004737 033610 JSR PC,EOM :SET EOM | 
5146 027562 004737 033610 JSR PC,EOM SET EOM 
5147 027566 004737 032346 JSR PC ,OCOR WAIT FOR OCOR 
5148 027572 005003 CLR R3 :CLEAR BIT COUNTER 
5149 027574 104415 000022 DATACLK,22 sCLOCK DATA 
5150 027600 112405 12%: MOVB (R4)+,RS sLOAD RS WITH CHAR 
zs 027602 010502 MOV R5,R2 ;LOAD R2 WITH CHAR 
5153 ; CHECK FIRST FOUR CHARACTER MESSAGE 
sige 7IN THE BIT WINDOW (0,125,252, 377) 
5156 027604 010537 027700 MOV R5,71$ ;LOAD FOR STUFF CHECK 
5187 027610 012737 102010 033332 MOV #CRC.CCITT, XPOLY LOAD POL YNOM] AL 
5158 027616 010537 027630 MOV R5,67$ :LOAD SOFT CHAR FOR BCC 
5159 027622 004537 033210 JSR RS, SIMBCC sCALCULATE SOFT BCC 
5160 027626 000010 10 SHIFT COUNT 
5161 027630 000000 67%: 0 ; CHARACTER 
5162 027632 000000 10$: 0 ;0LD BCC 
5163 0276346 013737 033334 027632 MOV CALBCC,10$ ;LOAD SOFT BCC FOR NEXT SHIFT 


-— 
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5164 027642 104415 000001 54%: DATACLK, 1 SHIFT DATA IN TO BIT WINDOW 
5165 027646 106002 RORB R2 SHIFT SOFT DATA 

5166 027650 103005 BCC 65$ :BR IF A SPACE 

5167 027652 004737 032314 JSR PC GETS! s;LOOK AT BIT WINDGW 

5168 027656 103406 BCS 66$ :BR IF OK (MARK) 

5169 027660 104006 HLT 6 ERROR, BIT WINDOW WAS A SPACE 
5170 027662 000404 BR 66% > CONTINUE 

5171 027664 0046737 032314 65$: JSR PC ,GETSI ;LOOK AT BIT WINDOW 

5172 027670 103001 BCC 66% ;BR IF OK (SPACE) 

5173 027672 104006 HLT 6 sERROR, BIT WINDOW WAS A MARK 
5174 027674 66$: 

5175 027674 004537 033776 JSR RS,STFFCK 

5176 027700 000000 71$: 0 

5177 027702 000001 1 

5178 027704 110237 027700 MOVB R2,71$ :SHIFT FOR NEXT STUFF CHECK 
5179 027710 005203 INC R3 :BUMP BIT COUNTER 

5180 027712 022703 000010 CMP #10,R3 ;DONE FULL 8 BITS YET 

5181 027716 001351 BNE 64$ ;BR IF NO 

5182 027720 005003 CLR R3 :CLEAR BIT COUNTER 

5183 027722 005300 DEC RO ;DEC CHARACTER COUNT 

a 027724 001325 BNE 12% :BR IF NOT DONE YET ‘ 
2188 :CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
$188 027726 005137 033334 COM CALBCC sADJUST BCC FOR SDLC 

5189 027732 013700 033334 MOV CALBCC,RO ;PuT BCC IN RO 

5190 027736 010037 030000 MOV RO,72$ :LOAD BCC FOR STUFF CHECK 
5191 027742 104415 000001 68$: DATACLK,1 :SHIFT HARDWARE BCC 

5192 027746 006000 ROR RO SHIFT SOFT BCC 

5193 027750 103005 BCC 69% :BR IF CARRY CLEAR 

5194 027752 004737 032314 JSR PC ,GETSI ;LOOK AT BIT WINDOW 

5195 027756 103406 BCS 70$ ;BR IF OK (MARK) 

5196 027760 104014 HLT 14 ERROR, CRC WRONG (SPACE) 
5197 027762 000404 BR 70% : CONTINUE 

5198 027764 004737 032314 69$: JSR PC ,GETSI LOOK AT BIT WINDOW 

5199 027770 103001 BCC 70$ ;BR IF OK (SPACE) 

§200 027772 104014 HLT 14 ERROR, CRC WRONG (MARK) 
5201 027774 70$: 

$202 027774 004537 033776 JSR RS,STFFCK CHECK BCC CHAR FOR ZERO STUFFS 
5203 030000 000000 72$: 0 : CHARACTER 

5204 030002 000001 1 :SHIFT COUNT 

5205 030004 010037 030000 MOV RO,72$ sSHIFT SOFTBCC ONCE 

5206 030010 005203 INC R3 s;BUMP BIT COUNTER 

§207 030012 022703 000020 CMP #20,R3 FINISHED BCC YET? 

5208 030016 001351 BNE 68$ ;BR IF NO 

ifs 030020 005003 CLR R3 ;CLEAR BIT COUNTER 

ett CHECK FOR FLAG TO FOLLOW BCC 

$213 030022 012737 000176 001252 MOV #°B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMPS 
5214 030030 104415 000001 73$: DATACLK, 1 CLOCK FLAG ONCE 

5215 030034 106037 001252 RORB TEMP3 >SHIFT SOFT FLAG 

5216 030040 103405 BCS 74% :BR IF BIT IS MARK 

5217 030042 004737 032314 JSR PC ,GETSI LOOK AT BIT WINDOW 

5218 030046 103006 BCC 75$ :BR IF OK 

5219 030050 104026 HLT 26 ERROR IN FLAG CHAR 
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BR $ 
74$: JSR PC,GETSI 

BCS $ 

HLT 26 


758: INC R3 


RT .* BIT WINDOW 
;ERROR IN FLAG CHAR 
;INC BIT COUNT 

FLAG DONE YET? 


BR IF NO 
;CLEAR BIT COUNT 


;CHECK FOR ANOTHER FLAG CAUSED BY THE SOM 
MOV pietaiee yrtose coat” PUT FLAG CHARACTER IN TEMP3 


;CHECK SECOND MESSAGE IN THE BiT WINDOW (0,125,252,577) 


746%: DATACLK, 
RORB TEMP3 
BCS 77% 
JSR PC,GETSI 
BCC 78% 
HLT 26 
BR 78% 
77$: JSR PC,GETSI 
BCS 78$ 
HLT 26 
78%: INC R3 
CMP #10,R3 
BNE 76% 
CLR R3 
MOV 
MOV 
CLR 
COM 
13$: MOVB 
MOV 
MOV 
MOV 
MOV 
JSR 
10 
82$: 0 
11$: 0 
MOV 
79%: DATACLK, 
RORB R2 
BCC 
JSR 
BCS 
HLT 
BR 
80$: JSR 
BCC 
HLT 
81$: 
JSR 
86$: 8) 


;CLOCK FLAG ONCE 
;SHIFT SOFT FLAG 
;BR IF BIT IS MARK 
re AT BIT WINDOW 


OK 
;ERROR IN FLAG CHAR 
; LOOK AT BIT WINDOW 
R IF OK 


ERROR IN FLAG CHAR 
;INC BIT COUNT 
FLAG DONE YET? 
;BR IF NO 

;CLEAR BIT COUNT 


#4 ,RO RESET CHARACTER COUNTER 
#MESDAT,RG ;LOAD MESSAGE POINTER 
11$ CLR SOFT BCC 

11$ sADJUST TO -1 FOR SDLC 
(R4)+,R5 LOAD CHAR IN R5 

R5,R2 ;LOAD CHAR IN R2 


R5 ,86$ 
CRC, CCITT, XPOLY’ 
828 
Ro; S IMBC 


PC ,GETSI LOOK AT BIT WINDOW 
‘BR IF OK (MA 
sERROR, BIT SInbOu WAS A SPACE 
t ; CONT NUE 
PC,GETSI ‘LOOK AT BIT WINDOW 
81$ :BR IF OK (SPACE) 
6 sERROR, BIT WINDOW WAS A MARK 
RS, STFFCK 


CL SCE TTS 


LOAD FOR STUFF CHECK 
LOAD POLYNOMIAL 
; LOAD soft CHAR FOR BCC 
SCALCULATE SOFT BCC 
SHIFT COUNT 
; CHARACTER 
;OLD BCC 


:SHIFT SOFT DATA 
;BR IF A SPACE 


;LOAD SOFT BCC FOR NEXT SHIFT 
:SHIFT DATA IN TO BIT WINDOW 


SEQ 0101 
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5276 030274 000001 1 
5277 030276 110237 030272 MOVB R2,86$ sSHIFT FOR NEXT STUFF CHECK 
5278 030302 00520 INC R3 “BUMP BIT COUNTER 
5279 030304 022703 000010 CMP #10,R3 “DONE FULL 8 BITS YET 
5280 030310 001351 BNE 79$ <BR IF NO 
$281 030312 005003 CLR R3 *CLEAR BIT COUNTER 
$282 030314 005300 DEC RO “DEC CHARACTER COUNT 
| SH 030316 001325 BNE 13% ;BR IF NOT DONE YET 
44 sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
| $287 030320 005137 033334 COM CALC SADJUST BCC FOR SDLC 
5288 030324 013700 033334 MOV CALBCC,RO ;PUT BCC IN R 
5289 030330 010037 030372 MOV RO,87$ LOAD BCC FOR STUFF CHECK 
5290 030334 104415 000001 83$: DATACLK,1 SHIFT HARDWARE BCC 
5291 030340 006000 ROR RO “SHIFT SOFT BCC 
5292 030342 103005 BCC 84S “BR IF CARRY CLEAR 
5293 030344 004737 032314 JSR PC,GETSI ;LOOK AT BIT WINDOW 
5294 030350 103406 BCS 85$ ‘BR IF OK (MARK) 
5295 030352 104014 HLT 14 sERROR, CRC WRONG (SPACE) 
$296 030354 000404 BR 85$ : CONT INUE 
5297 030356 004737 032314 84$: JSR PC,GETSI ;LOOK AT BIT WINDOW 
$298 030362 103001 BCC 85$ “BR IF OK (SPACE) 
5299 030364 104014 HLT 14 sERROR, CRC WRONG (MARK) 
5300 030366 85S: 
5301 030366 004537 033776 JSR RS, STFFCK :CHECK BCC CHAR FOR ZERO STUFFS 
| 5302 030372 000000 878: 0 “CHARACTER 
$303 030374 000001 1 “SHIFT COUNT 
| 5304 030376 010037 030372 MOV RO.87$ “SHIFT SOFTBCC ONCE 
5305 030402 005203 INC R3 ‘BUMP BIT COUNTER 
306 030404 022703 000020 CMP #20,R3 :FIINISHED BCC YET? 
5307 030410 001351 BNE 83$ “BR IF 
| 5308 030412 005003 CLR RB SOLEAR BIT COUNTER 
| aa19 CHECK FOR FLAG TO FOLLOW BCC 
| §312 030414 012737 000176 001252 MOV #°B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3 
$313 030422 104415 000001 88%:  DATACLK, 1 =CLOCK FLAG ONCE 
5314 030426 106037 001252 RORB TEMP3 sSHIFT SOFT FLAG 
5315 030432 103405 BCS 89% ‘BR IF BIT IS MARK 
5316 030434 004737 032314 JSR PC,GETSI ;LOOK AT BIT WINDOW 
5317 030440 103006 BCC 90$ “BR IF OK 
5318 030442 104026 HLT 26 “ERROR IN FLAG CHAR 
5319 030444 000404 BR 90$ 
5320 030446 737 032314 89$: JSR PC,GETSI sLOOK AT BIT WINDOW 
$321 030652 103401 BCS 90$ “BR IF OK 
aas¢ 030454 104026 HLT 26 sERROR IN FLAG CHAR 
$323 030456 005203 90$: INC R3 SINC BIT COUNT 
5324 030460 022703 000010 CMP #10,R3 “FLAG DONE YET? 
5325 030464 001356 BNE 88$ [BR IF NO 
3326 030466 005003 CLR R3 >CLEAR BIT COUNT 
5528 :CHECK TO SEE IF TRANSMITTER IS MARKING 
5330 030470 104415 000001 2$: DATACLK, ] sCLOCK TRANSMITTER 
$331 0304674 004737 032314 JSR PC ,GETSI ‘LOOK AT WINDOW 
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BCS 3$ :1T SHOULD BE MARKING 
HLT 24 “ERROR, BIT WAS A SPACE 
3$: INC R3 ‘BUMP BIT COUNTER 
CMP #7,,R3 “DONE YET 
t ‘BR IF NO 
DATACLK, 10 “GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
CLR “CLEAR BIT COUNTER 
4$: DATACLK, 1 ‘SHIFT OUT NEXT BIT 
JSR PC,GETSI ‘LOOK AT BIT WINDOW 
BCS Re ‘BR IF IT IS A 
HLT 34 ‘ERROR, TRANSMITIER 1S NOT MARKING 
INC R3 “INC BIT COUNT 
CMP #20,R3 “DONE YET? 
BNE 4$ <BR IF NO 
:CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
[WAS RECEIVED CORRECTLY (0,125,252,377 
DATACLK, 1 :GET LAST BIT IN RECEIVER 
MOV #4,R3 R3= CHARACTER COUNT 
MOV #MESDAT,R2 “LOAD MESSAGE POINTER IN R2 
40$: JSR PC, INRDY ‘WAIT FOR INRD 
ROMCLK eee :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
MOV 4(R1) RO :PUT ''FOUND'’ IN R4 
MOVB  —— (R2) +. RS “PUT “EXPECTED IN RS 
CMPB RS, RG 71§ RECEIVED DATA CORREC{? 
BEQ 41$ <BR IF YES 
HLT 10 “RECEIVE DATA ERROR 
41$: DEC R3 “DEC CHARACTER COUNT 
BNE 408 ‘BR IF NOT DONE YET 
:CHECK TO SEE THAT IN BCC MATCH IS SET 
“AND THAT THE BCC WAS RECEIVED CORRECTLY 
JSR PC, INRDY :WAIT FOR INRDY 
ROMCLK :NEXT WORD 1S, INSTRUCTION, ROMCLK PC=5304 
021204 :GET FIRST HALF OF CRC 
MOVB  4(R1), TEMP3 ‘PUT IN TEMP3 
BIC #177400, TEMP3 CLEAR HI BYTE 
JSR PC, INRDY ‘WAIT FOR INRDY 
ROMCLK te. :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
MOV 4(R1) RG :PUT FOUND’ IN RG 
BIC #374, R4 CLEAR UNWANTED BITS 
MOV #3,R5 :PUT EXPECTED’ IN RS 
CAP RS Rd “ARE IN BCC MATCH AND BLOCK END SET? 
HLT 42 :IN BCC MATCH ERROR 
50$: 
ROMCLK 


;NEXT WORD is § ine? hae ROMCLK PC=5304 


€21204 GET 

MOVB  4(R1),TEMP2+1 =: PUT iN TEMPE 

BIC #377, TEMP2 “CLEAR LO BYTE 

BIS TEMPO, TEMPS 716 BIT BCC NOW IN TEMPS 
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BASIC RECEIVER TESTS 


42$: 


43$: 
ROMCLK 


44$: 


ROMCLK 


ROMCLK 


51$: 
ROMCLK 


5$: 


N 8 
CMP CALBCC, TEMPS s1S IT CORRECT? 
BEQ 42% . ;BR IF OK 
HLT 27 


;CHECK TO SEE THAT SECOND FOUR ges te MESSAGE 
WAS RECEIVED CORRECTLY (0,125,252,377 


MOV #4 ,R3 ;R3=CHARACTER COUNT 
MOV #MESDAT,R2 ;LOAD MESSAGE POINTER IN R2 
JSR PC, INRDY WAIT FOR INRDY 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


MOV 4(R1) ,R4 ;PUT "'FOUND'’ IN R4 
MOVB hg ;PUT "‘EXPECTED'’ IN RS 


CMPB R5,R s1S RECEIVED DATA CORRECT? 
BEQ 44$ :BR IF YES 

HLT 10 :RECEIVE DATA ERROR 

DEC R3 ;DEC CHARACTER COUNT 

BNE 43% ;BR IF NOT DONE YET 


:CHECK TO SEE THAT IN BCC MATCH IS SET 
“AND THAT THE BCC WAS RECEIVED CORRECTLY 


JSR PC, INRDY :WAIT FOR INRDY 
:NEXT WORD 1S, INSTRUCTION, ROMCLK PC=5304 
021204 :GET FIRST HALF OF CRC 
MOVB 4(R1),TEMP3 [PUT IN TEMP3 
BIC #177460, TEMP3 :CLEAR HI BYTE 
JSR PC, INRDY WAIT FOR INRDY 
NEXT wok 1S INSTRUCTION, ROMCLK PC=5304 
021244 
4(R1),R4 :PUT "FOUND' IN R4 
#374,RG “CLEAR UNWANTED BITS 
#3,R5 :PUT EXPECTED’ IN RS 
RS Ra TARE IN BCC MATCH AND BLOCK END SET? 
HLT 42 :IN BCC MATCH ERROR 
:NEXT WORD 1s INSTRUCTION, ROMCLK PC=5304 
021204 :GET LAST HALF 
MOVB  4(R1),TEMP241 =: PUT IN TEMP? 


BIC. #377, TEMP2 “CLEAR LO BYTE 

BIS TEMPS, TEMP 716 BIT BCC NOW IN TEMPS 
CMP:  CALBCC,TEMP3 =:1S IT CORRECT? 

Bea’ 6 5$ BR IF OK 

HLT 27 

SCOPE :SCOPE THIS TEST 


neat ane eta TEST 57 eeeneceneteeereererenereser 


;*EMPTY SILO TES 

;*LOAD SILO WITH ') SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK 
S*UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS ” My 
;*SILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE F 


SEQ 0104 


IR 
3*4 CHARACTERS AND A BLOCK END WERE RECEIVED, AND in ACT IVE 1S CLEAR 


SO neste 


8 9 
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CZDMF P11 08-JUL-80 08:25 BASIC RECEIVER TESTS SEQ 0105 
5444 ehhh eh PPP PROSE ROSES SESS ESSE SSE SSOCOCOCLSSOCCCSCLLCLCCCCCL CTCL TT 
5445 
i tte 
5448 031110 012737 000057 001226 15157: Mov #57,TSTNO 
5449 031116 012737 031330 001216 MOV #TST60,NEXT 
5450 ;R1 CONTAINS BASE DMC11 ADDRESS 
5451 031124 104412 MSTCLR MASTER CLEAR DMC11 
5452 031126 005061 000004 CLR 4(R1) ;CLEAR PORTS 
5453 031132 104414 ROMCLK iNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5454 031134 122117 122117 ;PUT LU IN BITSTUFF MODE 
5455 031136 004737 033676 JSR PC,CLRIO ;D0 THIS AFTER MODE IS SET 
5456 031142 012711 004000 MOV #B1T11,(R1) :SET LINE UNIT LOOP 
5457 031146 012702 034116 MOV #MESDAT,R2 :R2 POINTS TO noone 
5458 031152 012700 900003 MOV #3,R0 7RO = CHAR COUNT 
5459 031156 004737 033500 JSR PC,SYNLD ;LOAD SILO 7h TWO FLAGS 
5460 031162 004737 032500 JSR PC ,OUTRDY WAIT FOR OUTR 
5461 031166 004537 033634 JSR R5,MESLD ;LOAD MESSAGE IN SILO 
5462 031172 034116 ME SDAT START OF MESSAGE 
5463 031174 000004 4 ; CHARACTER COUNT 
5464 031176 004737 032346 JSR PC ,OCOR sWAIT FOR OCOR 
5465 031202 104415 000065 DATACLK, 65 ;CLOCK DATA \EMPTY SILO) 
5466 031206 004537 033634 JSR R5,MESLD ;PUT MORE CHARACTERS IN SILO 
5467 031212 034116 ME SDAT 
5468 031214 000004 4 
9469 031216 004737 032346 JSR PC ,OCOR 
5470 031222 104415 000006 DATACI XK, 6 ;CLOCK UNTIL RTS IS CLEARED 
5471 031226 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5472 031230 021264 021264 GET RTS 
5473 031232 032761 000040 000004 BIT #BITS,4(R1) 31S IT CLEAR? 
5474 031240 001401 BEQ 5$ ;BR IF YES 
5475 031242 104034 HLT 34 ;ERROR, RTS NOT CLEAR 
5476 031244 104415 000041 5$: DATACLK, 4i ee XMITTER SOME MORE 
5477 031250 004737 033154 1$: JSR PC, INRDY ETS CHECK WHAT WAS RECEIVED 
5478 031254 104414 ROMCLK NEXT word 1S INSTRUCTION, ROMCLK PC=5304 
5479 031256 021204 021204 :GET RECEIVE DATA 
5480 031260 016104 000004 MOV G(R1) RS ;PUT IT IN RG 
5481 031264 112205 MOVB (R2)+,R5 3R5 = “‘EXPECTED’ 
5482 031266 120504 CMPB R5,R4 -1S DATA CORRECT? 
5483 031270 001401 BEQ 2$ ;BR IF OK 
5484 031272 104010 HLT 10 ;DATA ERROR 
5485 031274 005300 2%: DEC kO ;DEC CHAR COUNT 
486 031276 001364 BNE 1$ :BR IF NOT DONE YET 
5487 031300 004737 033154 JSR PC, INRDY WAIT FOR INRDY 
5488 031304 10441 ROMCLK NEXT woRD IS INSTRUCTION, ROMCLK PC=5304 
5489 031306 021244 021244 ;READ LU-12 
5490 031310 016104 000004 MCV 4(R1) ,R4 ;PUT “‘FOUND’’ IN R4 
5491 031314 012705 000022 MOV #22,R5 ;PUT “EXPECTED’’ IN 85 
5492 031320 120504 CMPB R5, R4 ;ARE BLOCK END AND IN RDY SET? 
5493 AND IN ACTIVE AND IN 8CC MATCH CLEAR? 
5494 031322 001401 BEQ 6% :BR IF YES 
5495 031324 104032 HLT 32 ;ERROR, BLOCK END NOT SET 
5496 ;OR IN BCC MATCH NOT CLEAR 
5497 ;OR IN ACTIVE NOT CLEAR 
5498 031326 6%: 
5499 031326 104400 SCOPE sSCOPE THIS TEST 
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BASIC RECEIVER TESTS 


;eteeeeareteineretenentereee TEST 60 teaeeeerereeererererteerere 
;*BITSTUFF CABLE DATA TEST 
**THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 
+*2 FLAGS,16 CHAR,EOM,16 CHAR,EOM,16 CHAR,EOM 
;*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO 


;*THE DATA IS TRANSMITTED OVER THE CABLE ive THE INTERNAL CLOCK 


;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATC 
;*LOOP=BACK CONNECTOR MUST BE ON TO RUN THIS TEST 


SRR A AREA EAE REHEAT HEREEHEHEREARAREHEREAHEAHEEEERET 


TEST 60 
MOV #60,TSTNO 
MOV #TST61,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
BIT #B1T14,STATI sSKIP TEST IF NO 
BEQ 3$ ;LOOPBACK CONNECTOR ON 
CLR 4(R1) ;CLEAR PORTS 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 PUT LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO ;00 THIS AFTER MODE IS SET 
MOV #BIT11,(R1) :SET LINE UNIT LOOP 
JSR PC,SYNLD ;LOAD TWO FLAGS 
MOV #CRC.CCITT,XPOLY;LOAD POLYNOMIAL FOR SOF? CRC CALC 
CLR 6$ ;CLEAR OLD BCC 
COM 6$ sADJUST TO -1 FOR SDLC 
MOV #16. ,R3 CHARACTER COUNT 
MOV #FLTDAT,R2 ;R2= POINTER 
7$: MOVB (R2)+,5$ ;LOAD CHAR FOR SOFT BCC CALC. 
JSR RS,SIMBCC ;CALC SOFT BCC 
10 SHIFT COUNT 
5$: 0 ; CHARACTER 
6$: 0 OLD BCC 
MOV CALBCC ,6$ ;LOAD OLD BCC 
DEC R3 :DEC COUNT 
BNE 7$ :BR IF NOT DONE YET 
COM CALBCC sADJUST CALBCC FOR SDLC 
JSR R5,MESLD ;LOAD SILO 
FLTDAT sMESSAGE ADDRESS 
16. CHARACTER COUNT 
JSR PC,EOM ;LOAD AN EOM 
JSR PC,EOM 
JSR RS,MESLD LOAD SILO 
FLTDAT sMESSAGE ADDRESS 
16. CHARACTER COUNT 
JSR PC,E0M ;LOAD AN EOM 
JSR PC,EOM 
JSR RS ,MESLD ;LOAD SILO 
FLTDAT MESSAGE ADDRESS 
16. ; CHARACTER COUNT 
JSR PC,EOM ;LOAD AN EOM 
JSR PC,EOM 
JSR PC ,OCOR sWAIT FOR OCOR 
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031550 005011 CLR (R1) a LINE UNIT LOOP 
031552 012700 000003 MOV #3,R0 = MESSAGE COUNT 
031556 012703 000020 MOV #16. ,R3 RS: “CHARACTER COUNT 
031562 012702 034122 MOV #FLTDAT, R2 oe MESSAGE POINTER IN R2 
031566 004737 033154 1$: JSR PC, INRDY WAIT FOR INRDY 
031572 104414 ROMCLK ;NEXT word IS INSTRUCTION, ROMCLK PC=5304 
031574 021204 021204 ;GET DATA FROM IN SILO 
031576 016104 000004 MOV 4(R1) RG ;PUT CHARACTER i. ""F OUND"* 
031602 112205 MOVB (R2)+,R5 :PUT ‘EXPECTED’ R5 
031604 120504 CMPB R5,R4 313 he ae DATA CORRECT 
031606 001401 BEQ 2$ :BR 
031610 104025 HLT 25 ‘DATA, ERROR 
031612 2$: 
031612 005303 DEC R3 ;DEC CHARACTER COUNT 
031614 001364 BNE 1$ ;BR IF NOT DONE THIS MESSAGE 
031616 012703 000020 MOV #16.,R3 RESET CHARACTER COUNT 
;CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 
031622 004737 033154 JSR PC, INRDY ;WAIT FOR INKDY 
031626 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
031630 021204 021204 :GET FIRST HALF OF CRC 
031632 116137 000004 001252 MOVB 4(R1), TEMP3 :PUT IN TEMP3 
5581 031640 042737 177400 001252 BIC #177400, TEMP3 CLEAR HI BYTE 
5582 031646 004737 033154 JSR PC INRDY WAIT FOR INRDY 
5583 031652 104414 ROMCLK ;NEXT woRD 1S INSTRUCTION, ROMCLK PC=5304 
5584 031654 021244 021244 
5585 031656 016104 000004 MOV 4(R1),R4 ;PUT ‘‘FOUND’' IN R4 
5586 031662 042704 000374 BIC #374 ,R4 ;CLEAR UNWANTED BITS 
5587 031666 012705 000003 MOV #3,R5 ;PUT "‘EXPECTED'’ IN RS 
5588 031672 120504 CMPB R5,R4 ;ARE IN BCC MATCH AND BLOCK END SET? 
5589 031674 001401 BEQ 25$ 
5590 031676 104042 HLT 42 ;IN BCC MATCH ERROR 
5591 031700 25$: 
5592 031700 104414 ROMCLK sNEXT WORD IS oT oro ROMCLK PC=5304 
5593 031702 021204 021204 :GET LAST HALF 
5594 031704 116137 000004 001251 MOVB 4(R1),TEMP2+1 ;PUT IN TEMP2 
5595 031712 042737 000377 001250 BIC #377, TEMP2 ;CLEAR LO BYTE 
5596 031720 053737 001250 001252 BIS TEMP? , TEMP3 :16 BIT BCC NOW IN TEMP3 
5597 031726 023737 033334 001252 CMP CALBCC TEMPS ;1S IT CORRECT? 
5598 031734 001401 BEQ 4$ ;BR IF OK 
5599 031736 104027 HLT 27 
5600 031740 012702 034122 4$: MOV #FLTDAT,R2 ;RESET MESSAGE POINTER 
5601 031744 005300 ’ DEC RO ;DECREMENT COUNTER 
5602 031746 001307 BNE 1$ ;BR IF NOT DONE 
5603 031750 104400 3$: SCOPE :SCOPE THIS TEST 
5604 
5605 
5606 peeeeeeeetertereteetretetere TEST 6] caeeeeeererenrerereneeneeer 
5607 ;*BITSTUFF CABLE DATA TEST 
5608 :*THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 
5609 :*2 FLAGS,59 DATA CHARACTERS,EOM WITH GARBAGE CHARACTER 
5610 ;tTHE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 


5611 S*RECEIVED DATA IS VERIFIED AS 1S IN BCC MATCH 
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000061 
003364 


040000 
000004 


033676 


032064 


001226 
001216 


001366 


033332 


032066 


TST61: 


. ¥ 


;*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 


ST URRRARAEKEKEEH EEE EERE HEAAARAARAEHEAEAAHEHEEHAEENHAAAEHAHENEE 


» TEST 61 
MOV #61,TSTNO 
MOV #.EOP,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR MASTER CLEAR DMC11 
BIT #B1T14, stati ;SKIP_ TEST IF NO 
BEQ 3$ : LOOPBACK on ON 
CLR 4(R1) ;CLEAR PORT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122117 ;PUT LINE UNIT IN BITSTUFF MODE 
JSR PC,CLRIO :d0 THIS AFTER MODE IS SET 
MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
JSR PC,SYNLD [LOAD TWO FLAGS 
MOV #CRC.CCITT,XPOLY;LOAD POLYNOMIAL FOR SOFT CRC CALC 
CLR 6$ ;CLEAR OLD BCC 
COM 6$ ;ADJUST TO -1 FOR SDLC 
MOV #59. ,R3 ; CHARACTER COUNT 
MOV #MESDAT,R2 ;R2= POINTER 
7$: MOVB (R2)+,5$ ;LOAD CHAR FOR SOFT BCC CALC. 
JSR RS,SIMBCC ;CALC SOFT BCC 
10 SHIFT COUNT 
5$: 0 ; CHARACTER 
6$: 0 SOLD BCC 
MOV CALBCC ,6$ LOAD OLD BCC 
DEC R3 DEC COUNT 
BNE 7$ BR IF NOT DONE YET 
COM CALBCC ADJUST CALBCC FOR SDLC 
JSR R5,MESLD ;LOAD SILO 
MESDAT :MESSAGE ADDRESS 
>. ; CHARACTER COUNT 
JSR PC,EOM ;LOAD AN EOM 
JSR PC,EOM 
JSR PC ,OCOR ;WAIT FOR OCOR 
CLR (R1) ;CLEAR LINE UNIT LOOP 
MOV #59. ,R0 ;RO= CHARACTER COUNT 
MOV WMESDAT,R2 LOAD MESSAGE POINTER IN R2 
1$: JSR PC, INRDY WAIT FOR INRDY 
ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
21204 :GET DATA FROM IN SILO 
MOV 4(R1),R4 PUT CHARACTER IN ‘‘FOUND"’ 
MOVB , (R2)+,R5 iPUT ““EXPECTED'' R5 
CMPB RS,R4 5 ;I1S RECEIVED DATA CORRECT 
BEQ 2$ BR IF OK 
* HLT 25 ;DATA ERROR 
DEC RO ;DECREMENT COUNTER 


BNE 1$ ;BR IF NOT DONE 


:CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 


- SEQ 0108 


1 


ROMCLK 


ROMCLK 
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JSR PC INRDY :WAIT FOR INRDY 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 :GET FIRST HALF OF CRC 
MOVB (R11), TEMP3 ‘PUT IN TEMP3 
BIC #1774660, TEMP3 i CLEAR HI BYTE 
JSR PC, INRDY WAIT FOR INRDY 
sNEXT vokb IS INSTRUCTION, ROMCLK PC=5304 
021244 
4(R1) ,R4 :PUT "'FOUND'’ IN RG 
#374, Ro “CLEAR“UNWANTED BITS 
#3,R5 “PUT EXPECTED’ IN RS 
R> Rd “ARE IN BCC MATCH AND BLOCK END SET? 
HLT 42 ; IN BCC MATCH ERROR 
;NEXT WORD 1s INSTRUCTION, ROMCLK PC=5304 
021204 LAST HALF 
MOVB 4(R1), TEMP2+1 eT IN TEMP2 


BIC #377, TEMP2 sCLEAR LO BYTE 
BIS TEMP2, TEMPS :16 BIT BCC NOW IN TEMP3 
CMP CALBCC, TEMP3 1S IT CORRECT? 
BEQ 3$ :BR IF OK 
HLT 27 
3$: SCOPE SCOPE THIS TEST 
; SUBROUTINES 
GETS! 
: THIS SUBROUTINE READS LU 17, AND PUTS IT INTO NITCH. 
sNITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY 
ROMCLK NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
021364 ;PORT4_LU 17 
MOV @DMPO4 ,NITCH STORE LU 17 
ROLB NITCH 
ROLB NITCH 
ROLB NITCH :PUT SI IN THE CARRY BIT 
RTS PC 
NITCH: 0O 
OCOR: 
THIS SUBROUTINE SPINS ON OCOR 
ROMCLK NEXT WORD IS ns TENE Tee ROMCLK PC=5304 
021364 :PORT4 LU 17 
BIT #B1T4,aDMP04 718 ocOR SET? 
BEQ OCOR “BR IF NO 
RTS PC OK OCOR IS SET, GO BACK 
SYNC: 
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5668 032174 004737 033154 

5669 032200 104414 

5670 032202 021204 

5671 032204 116137 000004 001252 

S672 032212 042737 177400 001252 

5673 032220 004737 033154 

5674 032224 104414 

5675 032226 021244 

5676 032230 016104 000004 

5677 032234 042704 000374 

5678 032240 012705 000003 

$679 032244 120504 

5680 032246 001401 

5681 032250 104042 

5682 032252 

5683 032252 104414 

5684 032254 021204 

5685 032256 116137 000004 001251 

5686 032264 042737 000377 001250 

5687 032272 053737 001250 001252 

5688 032300 023737 033334 001252 

5689 032306 001401 

5690 032310 104027 

5691 032312 104400 

5692 

5693 

5694 

5695 

5696 

5697 032314 

5698 

5699 

5700 

5701 032314 104414 

5702 032316 021364 

5703 032320 017737 147066 032344 

5704 032326 106137 032344 

5705 032332 106137 032344 

5706 032336 106137 032344 

5707 032342 000207 

5708 032344 000000 

5709 

5710 

5711 032346 

5712 

5713 

5714 032346 104414 

5715 032350 021364 

5716 032352 032777 000020 147032 

5717 032360 001772 

5718 032362 000207 

5719 

5720 

5721 032364 

5722 

5723 


THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYNC 
CHARACTERS PASSED TO IT IN THE WORD AFTER THE JSR CALL 


SEQ 0109 


paacoeevl 


MACY11 30A(1052) 


032364 


013637 


000207 


005037 
104414 


08-JUL-80 08:26 PAGE 111 
P11 08-JUL-80 08:25 


001246 
000002 
000026 


032500 
000001 


000026 
001246 
032500 
000004 
000301 


032346 


001256 


000020 
001256 


001250 
0 
000026 


032500 
000001 


SUBROUTINES 

000004 

ROMCLK 

1$: 
000004 

ROMCLK 
000004 

ROMCLK 

ROMCLK 
000004 

ROMCLK 

OUTRDY: 

1$: 

ROMCLK 
146674 

es: 

CHAR: 
001246 
000004 

ROMCLK 

1$: 
000004 

ROMCLK 


;AND A NON-SYNC CHARACTER (301) 


MOV a(SP)+, weds ;GET COUNT 
ADD #2,-(SP ADJUST STACK 
MOV #26, ber) ;LOAD PORTS 

;NEXT woRD I$ techn BEL eS 
122114 LOAD SYNC REGISTER 
JSR PC ,OUTRDY ‘WALT FOR OUTRDY 
MOV #1,4(R1) ;LOAD PORTS 

sNEXT woRD “s lalate 
122111 ET 
MOV #26,4(R1) LOAD > PORTS 

;NEXT woRD IS INSTRUCTION, 
122110 LOAD OUT DATA 
DEC TEMP 1 ;ALL DONE? 
BNE 1$ ;BR IF NOT 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
CLR 4(R1) ;LOAD PORTS 

;NEXT WORD "s eee 
122111 ; SET 
MOV #301,4(R1) ;LOAD SPORTS 

;NEXT WORD IS INSTRUCTION, 
122110 4 ;LOAD OUT DATA 
JSR PC,OCOR ;WAIT FOR OCOR 
RTS PC 


; THIS SUBROUTINE SPINS ON OUT READY 


ROMCLK PC=5304 


ROMCLK PC=5304 


ROMCLK PC=5304 


ROMCLK PC=5304 


ROMC' kK PC=5304 


CLR TEMPS :CLEAR TIMER 
NEXT WORD is ea Tee Fae, ROMCLK PC=5304 
021224 :PORT4 LU11 
BIT #B114,aDMP04 718 our RDY SET? 
BNE 2$ “BR IF YES 
INC TEMPS ‘INC TIMER 
BNE 1$ KEEP CHECKING IF NOT DONE 
HLT 36 ERROR, OUT READY NOT SET 
RTS PC 


THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS 


;AND THE CHARACTER PASSED TO IT. 
MOV a(SP)+,TEMP2 ;GET CHARACTER 


ADD #2,-(SP) ort eh STACK 
MOV #3, TEMP) :SET FOR 3 SYNCS 
MOV #26,4(R1) LOAD PORTS 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122114 ;LOAD SYNC REGISTER 
JSR PC ,OUTRDY sWAIT FOR OUTRDY 


MOV #1 ,4(R1) 


;LOAD PORTS 
:NEXT WORD IS INSTRUCTION, 
SET SOM 


ROMCLK PC=5304 


SEQ 0110 


2D™MF MACY11 36a(1052) 
CZDMF P11 08-JUL-80 08: 
5780 032600 012761 
104414 


000026 


001246 


032500 
001250 


032346 


032642 000207 


032644 


032644 013637 


062746 


001250 


000004 


000004 


0 
001250 


000004 


032500 


032346 


5806 032706 000207 


5809 032710 


5813 032710 012737 


005737 


000073 
033150 


000002 
000003 
000026 


032500 
000001 


000026 


001246 


a 5789 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
032500 

; 033150 

s068 122110 


030 005737 033152 


001250 


001250 
001246 
000004 


000004 


000004 


000004 


hs JUL-80 08:26 PAGE 112 


SUBROUTINES 


ROMCLK 


ROMCLK 


CHARSD: 


ROMCLK 


ROMCLK 


SILOLD: 


ROMCLK 
1$: 
ROMCLK 


ROMCLK 


es: 
ROMCLK 


MOV #26,4(R1) ;LOAD PORTS 
;NEXT woRD I$ ee Ads Te ROMCLK PC=5304 
122110 LOAD OUT DAT 
DEC TEMP 1 FALL DONE ? 
BNE 1$ ;BR IF NOT 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
MOV TEMP2 ,4(R1) ; LOAD PORTS 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ;LOAD OUT DATA 
JSR PC ,OCOR ;WAIT FOR OCOR 
RTS PC 
;THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 
MOV a(SP)+,TEMP2 GET CHARACTER 
ADD #2,-(SP) ;ADJUST STACK 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
MOV TEMP2,4(R1) “LOAD PORT4 
s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ote OUT DAIA 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ;LOAD GARBAGE CHAR 
JSR PC ,OCOR :WAIT FOR OCOR 
RTS PC 


3 THIS SUBROUTINE FILLS THE OUT SILO 
; WITH A BINARY COUNT PATTERN 


122114 
JSR 
MOV 


122111 
MOV 


122110 


122110 
1ST 


#73, TEMP2 ;LOAD COUNT 
SCHAR sFIRST TIME HERE? 
4$ ;BR IF BITSTUFF 
2$ ;BR IF NO 
#2, TEMP2 :ADD 2 TO CHARACTER COUNT 
#3, TEMP) sSET FOR 3 SYNCS 
#26, 4(R1) sLOAD PORTS 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sLOAD SYNC REGISTER 
PC ,OUTRDY ;WAIT FOR OUTRDY 
#1,4(R1) sLOAD PORTS 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:SET SOM 
#26,4(R1) ;LOAD PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD OUT DATA 
TEMP1 ALL DONE? 
1$ :BR IF NOT 
PC ,OUTRDY sWAIT FOR OUTRDY 
SCHAR ,4(R1) sLOAD PORTS 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD OUT DATA 
STUFLG sBITSTUFF??? 


SEQ 0111 


CZDMF =©MACY11 30A(1052) O8-JUL-80 08:26 PAGE 113 
CZ2DMF P11 08-JUL-80 08:25 SUBROUTINES 
5836 033034 001407 BEQ 6$ ;BR IF NO 
5837 033036 013737 033150 033050 MOV SCHAR,5$ :1T IS SOLO SO CHECK BITSTUFFING 
5838 033044 004537 033716 JSR RS,STFFCL ;ADD ANY BIT STUFF CLOCK TICKS 
5839 033050 000000 S$: 0 ; CHARACTER 
$840 033052 000010 10 :CHIFT COUNT 
5841 033054 005237 033150 6$: INC SCHAR NEXT CHARACTER 
5842 033060 022737 000400 033150 CMP #400,SCHAR ;ALL DONE? 
5843 033066 001403 BEQ $ 
5844 033070 005337 001250 DEC TEMP2 ;DECREMENT COUNT 
5845 033074 001346 BNE 2$ ;BR IF NOT DONE 
5846 033076 004737 032346 3$: JSR PC,OCOR WAIT FOR OCOR 
5847 033102 000207 RTS PC 
5848 033104 005037 033150 4$: CLR SCHAR START PATTERN AT ZERO 
849 033110 012737 177777 033152 MOV #-1,STUFLG SET BITSTUFF Ae 
5850 033116 005037 034114 CLR BITCON ;CLEAR STUFF COUNT 
5851 033122 062737 000002 001250 ADD #2, TEMP2 ;ADD 2 10 Sag 35 COUNT 
5852 033130 012761 000001 000004 MOV #1,4(R1) SET BITO IN P 
5853 033136 104414 ROMCLK :NEXT woRD IS INSTRUCTION. ROMCLK PC=5304 
5854 033140 122111 122111 ;SET SOM 
5855 033142 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5856 033144 122110 122110 ;LOAD GARBAGE CHAR 
5857 033146 000721 BR 23 :60 LOAD SILU 
5858 033150 000000 SCHAR: 0 
5859 033152 00v000 STUFLG: 0 
5860 
5861 
5862 033154 INRDY: 
5863 ; THIS SUBROUTINE SPINS ON INRDY 
5864 sIF INRDY FAILS TO SET THE DELAY TIMES OUT AND AN 
5865 sERROR 1S REPORTED. FOR BETTER SCOPE LOOPS THIS 
5866 :DELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER 
5867 s INITIALLY LOADED INTO TEMP1, THE SMALLER THE NUMBER 
pace s THE SHORTER THE DELAY. 0 IS THE LONGEST DELAY. 
5870 033154 012737 000000 001246 MOV #0, TEMP ;SET UP DELAY COUNTER 
5871 033162 1$: 
5872 033162 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5873 033164 021244 021244 Lut 
5874 033166 032777 000020 146216 BIT #B1lT4,aDMP04 1S INRDY SET? 
5875 033174 001004 BNE 2$ :BR IF YES 
5876 033176 005237 001246 INC TEMP 1 INC DELAY 
5877 033202 001367 BNE 1$ : TRY AGAIN 
5878 033204 104037 HLT 37 sERROR,NO INRDY 
5879 033206 000207 23: RTS PC RETURN 
5880 
5881 
5882 033210 SIMBCC: 
5883 THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
5884 7IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE 
+44 :STATE OF THE LSB OF THE BCC IS RETURNED IN THE C BIT. 
5887 033210 910046 MOV RO, -(SP) SAVE RO ON STACK 
$888 033212 012537 001246 MOV (R5)+, TEMP) ‘TEMP! = SHIFT COUNT 
5889 033216 012537 001250 MOV (R5)+, TEMP2 sTEMP2 = CHARACTER 
5890 033222 012537 033334 MOV (R5) +, CALBCC ;CALBCC = OLD BCC 
5891 033226 013700 033334 1$ MOV CALBCC,RO ;PuT OLD BCC IN RO 


SEQ 0112 








CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 114 
CZDMF P11 08-JUL-80 08:25 SUBROUTINES SEQ 0113 
$892 033232 000241 CLC , 
$893 033234 006037 033334 ROR CALBCC SHIFT OLD BCC ; 
5894 033240 006037 001250 ROR TEMP2 SHIFT CHARACTER 
5895 033244 005500 ADC RO ;ADD CHAR CARRY TO OLD BCC 
5896 033246 006000 ROR RO :PUT BITO TO CARRY BIT 
5897 033250 103011 BCC $ ;CARRY IS FEEDBACK BIT 
5898 033252 013700 033332 MOV XPOLY,RO ;1F FEEDBACK = 1 
5899 033256 043700 033334 BIC CALBCC,RO sEXCLUSIVLY OR XPOLY TO CALBCC 
5900 033262 043737 033332 033334 BIC XPOLY, CALBCC 
5901 033270 050037 033334 BIS RO, CALBCC 
5902 033274 005337 001246 2s: DEC TEMP1 sDEC SHIFT COUNT 
5903 33300 001352 BNE 1$ ;BR IF NOT DONE 
5906 033302 012737 000001 0601246 MOV #1, TEMP) :GET SET TO INVERT BITO 
5905 033310 013700 033334 MOV CALBCC,RO ;PUT RESULT IN RO 
5906 033314 006000 ROR RO SHIFT BITO TO CARRY 
$907 033316 005537 001246 ADC TEMP 1 : INVERT CARRY TO BITO OF TEMP) 
908 033322 006037 001246 ROR TEMP 1 PUT INVERTED BIT IN CARRY 
5909 033326 012600 MOV (SP)+,RO sRESTORE RO 
5910 033330 000205 RTS R5 : RETURN 
5911 033332 000000 XPOLY: 0 
5912 033334 000000 CALBCC: 0 
5913 000200 LRC8=200 
5914 120001 CRC16=120001 
5915 102010 CRC. CCITT=102010 
5916 
5917 
5918 033336 BCCLD: 
5919 ;THIS SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS 
5920 ‘WITH SOM SET, AND ONE CHARACTER PASSED TO IT 
444) ‘WITH THE SOM BIT CLEAR (ENABLE CRC) 
5923 033336 013637 001250 MOV a(SP)+,TEMP2 GET CHARACTER 
5924 033342 062746 000002 ADD #2,-(SP) sADJUST STACK 
5925 033346 012737 000002 001246 MOV #2, TEMP) :SET FOR 2 SYNCS 
5926 033354 012761 000026 000004 MOV #26,4(R1) LOAD PORT4 
5927 033 104414 ROMCLK NEXT woRD 1S INSTRUCTION, ROMCLK PC=5304 
5928 033364 122114 122114 ;LOAD SYNC REGIST ER 
5929 033 004737 032500 1$: JSR PC ,OUTRDY WALT FOR OUTRDY 
930 033372 012761 000001 000004 MOV #1,4(R1) LOAD PORTS 
5931 0334 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
$932 033402 122111 122111 SET SOM 
5933 03 012761 000026 000004 MOV #26,4(R1) ;LOAD PORT4 
5934 033412 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5935 033414 122110 122110 ;LOAD OUT DATA 
5936 033416 005337 001246 DEC TEMP) ;ALL DONE? 
5937 033422 001361 BNE 1% ;BR IF NOT 
5938 033424 004737 032500 JSR PC ,OUTRDY WAIT FOR OUTRDY 
5939 033430 013761 001250 000004 MOV TEMP2 ,4(R1) “LOAD PORT4 
5940 033436 104414 ROMCLK NEXT — 1S Jes Teast tom, ROMCLK PC=5304 
5941 033440 122110 © 122110 AD OUT DATA 
$942 033442 004737 032346 JSR PC,OCOR UAIT FOR OCOR 
5943 033446 000207 RTS PC 
5944 
5945 
5946 033450 GETQO: 


5947 ; THIS SUBROUTINE READS THE STATE OF THE TRANSMIT 


ey M 
CZDMF P11 08-JUL-8 


ACY11 30A(1052) 
0 08:25 


033450 
033460 


033462 
033462 


033476 


033500 


033500 


033556 


033560 


033560 
0 


033610 


104414 
021364 
106177 
000207 


104414 
021364 
106177 
106177 
000207 


012737 


000207 


004737 


000207 





QO8-JUL-80 08:26 PAGE 115 


145732 


145720 
145714 


000002 
000026 


032500 
000001 


000026 


001246 


032500 
000001 


000004 


SUBROUTINES 


ROMCLK 


GETOI: 


ROMCLK 


ROLB 


SYNLD: 


001246 

000004 
ROMCLK 
1$: 


ROMCLK 


000004 


000004 
ROMCLK 


SOM: 


000004 
ROMCLK 


ROMCLK 


;BCC LSB AND PUTS IT IN THE CARRY BIT 


:NEXT WORD 1s, oo ROMCLK 
021364 ;PORT j=17 
ROLB aDMP04 ;PurT a0 tN CARRY 
RIS PC RETURN 


; THIS SUBROUTINE READS THE STATE OF THE RECEIVE 
;BCC LSB AND PUTS IT IN THE CARRY BIT 


;NEXT WORD ai INSTRUCTION, ROMCLK 


02136 PORT4 LU-17 
ROL a@DMP04 PuT Q0 IN CARRY 
anne :PuT QI iN CARRY 

es PC sRETURN 


THIS SUBROUTINE LOADS OUT SILO WITH 
72 SYNC CHARACTERS WITH SOM SET 


MOV #2, TEMP LOAD COUNTER FOR 2 SYNCS 
MOV #26,4(R1) 6 

pNEXT wokD” 1s “TAS TRUCTION, ROMCLK 
122114 sLOAD SYNC REG 
JSR PC ,OUTRDY ‘WAIT FOR OUTRDY 
MOV #1,4(R1) sLOAD PORT4 

NEXT WORD IS INSTRUCTION, ROMCLK 
122111 :SET SOM 
MOV #26,4(R1) ;PORT_26 

pNEXT woRD IS" INSTRUCTION, ROMCLK 
122110 LOAD OUT DATA WITH SYNC 
DEC TEMP ‘DE CREMENT COUNTER 
BNE 1$ :BR IF NOT DONE 
RTS PC sRETURN 


; THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A 
;GARBAGE CHARACTER (0) 


JSR PC ,OUTRDY at OUTRDY 


MOV #1,4(R1) :PORT 
:NEXT WORD IS _pe TMT ION, ROMCLK 
122111 7 SET 
CLR 4(R1) sCLEA a OpATA CHAR 
sNEXT WORD 1S INSTRUCTION, ROMCLK 
122110 LOAD GARBAGE CHARACTER 
RTS PC ‘RETURN 


THIS SUBROUTINE LOADS EOM AND OUT DATA WITH A 
;GARBAGE CHARACTER (2) TO 


PC=5304 


PC=5304 


PC=5304 


PC=5304 


PC=5304 


PC=5304 


PC=5304 


ENABLE TRANSMISSION OF BCC 


SEQ 0114 


























CZDMF 


CZDMF .P11 


MACY11 30A(1052) 
08-JUL-80 08:25 


033610 


033632 


033634 


033634 


POV AEA AIA AN 
SVSSNSS 


ear ok =) 


004737 
012761 
104414 
122111 
104414 
122110 
000207 


000205 


012761 


2 —+ s+ 


Q8-JUL-8C 08:26 PAGE 116 
SUBROUTINES 


032500 

000002 O0C0004 
ROMCLK 
ROMCLK 


MESLD: 


001246 
032500 1$: 
000004 

ROMCLK 
001246 


032346 


CLRIO: 


000200 000004 


ROMCLK 
ROMCLK 


STFFCL: 


001252 


034114 


034114 2$: 
000005 034114 


034114 


L 9 
SEQ 0115 


JSR PC ,OUTRDY 
MOV pein 


sWAIT FOR OUTRDY 
“PORTS 
sNEXT woRD [> LAPT a, ROMCLK PC=5304 


122111 OM 

sNEXT woRD IS INSTRUCTION, ROMCLK PC=5304 
122110 LOAD GARBAGE CHARACTER 
RTS PC ‘RETURN 


THIS SUBROUTINE LOADS SILO WITH MESSAGE 
; THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE 
;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 


MOV RO,-(SP) :SAVE RO 

MOV (R5)+,RO =RO=MESSAGE POINTER 

MOV (R5)+_TEMP1 ‘TEMP1=CHARACTER COUNT 
JSR PC ,OUTRDY ‘WAIT FOR OUT RDY 

MOVB (RO) +, 4(R1) ‘LOAD PORT4 WITH CHARACTER 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


122110 LOAD OUT DATA SILO 
DEC TEMP 1 DEC CHAR COUNT 

BNE 1$ ;BR IF NOT DONE 

JSR PC ,OCOR ;WAIT FOR OCOR 

MOV (SP)+,RO RESTORE RO 

RTS R5 RETURN 


THIS SUBROUTINE SETS IN CLR AND OUT CLR TO 
[CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 


MOV #B1T7,4(R1) ;LOAD PORTS 
;NEXT WORD IS eo ROMCLK PC=5304 


122112 ;SET IN CL 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 SET OUT CLR! 
RTS PC ;RETURN 


;THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
ZFIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT. 


MOV RO,-(SP) :SAVE RO 

MOV (R5)+,R0 ‘PUT CHAR IN RO 

MOV (R5)+, TEMP3 =PUT SHIFT COUNT IN TEMP3 

RORB  ~—-RO “LOOK AT NEXT BIT 

BCS 2$ “BR IF A MARK 

CLR BITCON ‘IT WAS A SPACE, CLEAR 1°S COUNTER 
BR 3$ = CONT INUE 

INC BITCON > INC CONSECUTIVE 1°S COUNTER 

CMP eS BITCON ‘1S 11 5 YET 

BNE 3$ “BR 


IF NO 
CLR BITCON YES! SO START AGAIN 





CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 117 


CZDMF P11 08-JUL-80 08:25 SUBROUTINES SEQ 0116 
6060 033760 104415 000001 DATACLK, 1 GIVE EXTRA TICK TO STUFF ZERO 
6061 033764 005337 001252 3$: DEC TEMP3 =DEC SHIFT COUNT 
6 033770 001356 BNE 1$ “BR IF NOT DONE 
6063 933772 012600 MOV (SP)+,RO shes TORE RO 
6066 033774 000205 RTS R5 RETURN 

i; 6065 
6066 
6067 033776 STFFCK: 
6068 sTHIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 
6069 s1S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT 
ort *1$ THE CHARACTER, SECOND ARGUMENT IS SHIFT COUNT. 
6072 033776 010046 MOV RO,-(SP) SAVE RO 
6073 034000 012500 MOV (R5)+,RO :PUT CHAR IN RO 
6074 034002 012537 001252 MOV (RS) +, TEMP3 ‘PUT SHIFT COUNT IN TEMP3 
6075 034006 106000 1$: RORB RO :SHIFT OUT NEXT BIT 
6076 034010 103403 BCS 2$ ‘BR IF IT IS A MARK 
6077 034012 005037 034114 CLR BITCON :1T WAS A SPACE, CLEAR 1°S COUNTER 
6078 034016 000416 BR 3$ ‘CONT INUE 
6079 034020 005237 034114 2$: INC BITCON sINC CONSECUTIVE I'S COUNTER 
6080 034024 022737 000005 034114 CMP #5,BITCON °5 IN A ROW YET? 
6081 034032 001010 BNE 3$ :BR IF NO 
6082 034034 005037 034114 CLR BITCON sYES, SO START OVER 
6083 034040 104415 000001 DATACLK, 1 sEXTRA TICK TO STUFF ZERO 
6084 034044 004737 032314 JSR PC,GETSI >LOOK AT WINDOW 
6085 034050 103001 BCC 3$ :1S IT A ZERO, BR IF YES 
6086 034052 104030 HLT 30 “NO, ERROR ZERO WAS NOT STUFFED 
6087 034054 005337 001252 3$: DEC TEMP3 [DEC SHIFT COUNT 
6088 034060 001352 BNE 1$ ‘BR IF NOT DONE 
6089 034062 012600 MOV (SP)+,RO sRESTORE RO 
6090 034064 000205 RTS R5 > RETURN 
6091 
6092 
6093 034066 CTSDLY: 
6094 , sTHIS SUBROUTINE WASTES TIME UNTIL CTS SETS, 
6095 “BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT 
6097 034066 010046 MOV RO,-(SP) :SAVE RO 
6098 034070 012700 000032 MOV #32,R0 LOAD RO Witt COUNT 
6099 034074 027777 145104 145102 1$: CMP @TKCSR,a@TKCSR =: WASTE TIME 
6100 034102- 005300 DEC RO :DECREMENT COUNTER 
6101 034104 001373 BNE 1$ [DO IT AGAIN IF NOT = 0 
6102 034106 012600 MOV (SP)+,RO sRESTORE RO 
103 034110 000207 RTS PC ; RETURN 
6105 
6106 034112 000176 FLAG:  *B<01111110> sFLAG CHARACTER 
6107 034114 000000 BITCON: 
6108 034116 000 125 252 MESDAT: .BYTE 0,125,252,377 
6109 034121 377 
6110 034122 001 002 004 FLIDAT: .BYTE 1,2,4,10,20,40,100,200, 376,375,373, 367,357,337,277, 177 
6111 034125 010 020 040 
6112 034130 100 200 376 
6113 034133 375 73 367 
6114 034136 357 337 277 
6115 034141 177 








CZDMF =MACY11 30A(1052) O8-JUL-80 08:26 PAGE 118 
CZDMF P11 08-JUL-80 08:25 SUBROUTINES SEQ 0117 


6116 034142 100 140 STUFDT: .BYTE  100,140,160,170,3,300,174,176,177,1 


16 
6117 034145 170 003 30 
6118 034150 174 176 i7 
6119 034153 001 


-BYTE 363,347,317,200,0,377,377,377,200,37 


6123 034165 037 


6125 034166 046377 047111 020105 EM1: sASCIZ <377>/LINE UNIT INITALIZATION TEST/ 
034224 046377 047111 020105 EM: -ASCIZ <377>*LINE UNIT REGISTER READ/ONLY TEST“ 
034267 377 0464514 042516 EM3: ASCIZ <377>*LINE UNIT REGISTER WRITE/READ TEST“ 
034333 377 0446514 042516 EMG: ASCIZ <377>/LINE UNIT INTERNAL CLOCK FAILURE / 
034375 377 051124 047101 EMS: ASCIZ <377>/TRANSMITTER DATA ERROR/ 

034425 377 042522 042503 EM6: ASCIZ <377>/RECEIVER TEST/ 
034444 051377 041505 044505 EM7: ASCIZ <377>/RECEIVER DATA ERROR/ 
034471 047515 042504 EM10:  .ASCII <377>/MODEM SIGNAL ERROR/ 
034514 052377 044510 020123 ASCII <377>/THIS ERROR COULD BE CAUSED If YOU HAVE V.35 AND/ 
034574 040777 052125 051517 eASCI1 <377>/AUTOSIZED. YOU MUST MANUALLY ANSWER QUEST IONS IF/ 
034656 054777 052517 044040 eASCIZ <377>/YOU_HAVE V.35 (DMC11-FA)/ 
034710 052377 040522 051516 EM11: .ASCIZ <377>/TRANSMITTER CRC ERROR/ 
034737 377 042522 042503 EM12: .ASCIZ <377>/RECEIVER CRC ERROR/ 
034763 377 047111 041040 EM13:  .ASCIZ <377>/IN BCC MATCH ERROR (Lu REG 12)/ 
035023 377 051124 047101 EM14: .ASCIZ <377>/TRANSMITTER FAILED TO GO TO MARK STATE/ 
035073 377 040503 046102 EM15:  .ASCIZ <377>/CABLE ef TEST/ 
035114 043377 040514 020107 EM16: .ASCIZ <377>/FLAG ERROR/ 
035130 52377 040522 051516 EM17: .ASCIZ <377>/TRANSMITTER parse TO STUFF A ZERO/ 
035174 051777 044527 041524 EM20: ASCLZ <377>/SWITCH PAC TEST/ 
035215 041101 051117 EM21: ASCIZ <377>/ABORT ERROR/ 
035232 052377 040522 051516 EM22: ASCIZ <377>/TRANSMITTER ERROR/ 
035255 040510 043114 EM23: ASCIZ <377>/HALF DUPLEX TEST/ 
035277 377 052517 020124 EM24: ASCIZ <377>/OUT READY NOT SET/ 
035322 044777 020116 042522 EM2S: ASCIZ <377>/1N READY NOT SET/ 
035344 042777 050130 041505 DH1 ASCIZ <377>/EXPECTED FOUND/ 
035365 377 054105 042520 DH2 ASCIZ <377>/EXPECTED FOUND LU-REGISTER/ 
035423 377 0446103 051101 DH3 ASCIZ <377>/CHARACTER BIT THAT FAILED/ 
035461 377 047503 051122 DH4 ASCIZ <377>/CORRECT CRC BIT THAT FAILED/ 
035521 377 054105 042520 DHS ASCIZ <377>/EXPECTED FOUND SHIFT/ 
035553 377 054105 042520 DH6 ASCIZ <377>/EXPECTED FOUND CHARACTER = SHIFT/ 
035621 377 046102 041517 DH7: -ASCIZ <377>/BLOCK END NOT SET/ 
035644 051377 051524 042040 DH10: .ASCIZ <377>/RTS DID NOT CLEAR/ 
035670 -EVEN 
035670 000002 DT1: 2 
035672 003 007 Yk ee 
035674 001272 SAVRS 
035676 003 002 -BYTE 3,2 
035700 001270 SAVR4 
035702 000003 DT2: 3 
035704 003 007 BYTE 3,7 
035706 001272 SAVRS 
035710 003 019 BYTE 3,10 
035712 001270 SAVRS 
035714 003 002 -BYTE 3,2 
035716 001264 SAVR2 





S| 


CZDMF =6MACY11 30A(1052) 08-J 

CZDMF .P11 08-JUL-80 08:25 
035720 000002 
035722 003 017 
035724 001272 
THRE 002 002 
035730 001266 
035732 000002 
035734 006 021 
035736 033334 
035740 002 002 
035742 001266 
035744 000003 
035746 001 011 
035750 001300 
035752 001 011 
035754 001302 
035756 002 002 
035760 091260 
035762 000003 
035764 001 011 
035766 001302 
035770 001 011 
035772 001300 
035774 002 002 
035776 001260 
036000 000004 
036002 001 011 
036004 001200 
036006 001 011 
036010 001302 
036012 0 007 
036014 001272 
036016 002 001 
036020 001266 
036022 000004 
036024 001 011 
036026 001302 
036030 001 011 
036032 001300 
036034 007 
036036 001272 
036040 002 001 
036042 001266 
036044 000002 
036046 003 007 
036050 034112 
036052 002 002 
036054 001266 
036056 000002 
036060 006 004 
036062 033334 
036064 006 002 
036066 001252 
036070 
036070 000000 
036072 000000 


UL-80 08:26 PAGE 119 
SUBROUTINES 


DT3: 


DT4: 


DTS: 


DT6: 


DT7: 


DI10: 


DT11: 


DI12: 


-ERRTAB: 


BYTE 3,17 
SAVRS 

BYTE 2,2 
SAVR3 

YTE 6,21 

CALBCC 

BYTE 2 
SAVR3 

BYTE 1,11 
ZERO 

-BYTE 1,11 
ONE 

OTTE . 22 
ae 

BYTE Lal’ 
ONE 

BYTE ee 
ZERO 

BYTE 2,2 
SAVRO 

-BYTE 1,11 
ZERO 

-BYTE Ts, 04 
ONE 

BYTE Rat 
SAVRS 

BYTE 2,1 
paves 

-BYTE : ie 
ONE 

ZERO 

BYTE 3,7 
SAVRS 

BYTE 2,1 
SAVR3 

2 

.BYTE 3,7 
FLAG 

BYTE ee 
ed 

BYTE 4 
CALBCC 

BYTE 6, 
TEMP3 

0 

0 


- SEQ 0118 
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CZDMF P11 08-JUL-80 08:2 SUBROUTINES SEQ 0119 
036074 000000 0 
036076 034166 —M1 
036100 035365 DH2 sHLT 1 
036102 035702 12 
036104 034224 EMO 
036106 035365 DH2 sALT 2 
036110 035702 DT2 
036112 034267 EM3 
036114 035365 DH2 sHLT 3 
036116 035702 DT2 
036120 034333 EMG 
036122 000000 sHLT 4 
036124 000000 
036126 034375 —EMS 
036130 035365 DH2 HLT 5 
036132 035702 DT2 
036134 034375 EMS 
036136 035423 DH3 sHLT 6 
036140 035720 DT3 
036142 034425 EM6 
036144 035344 DH1 HLT 7 
036146 035670 DT1 
036150 034444 EM7 
036152 035344 DH1 HLT 10 
036154 035670 oT1 
036156 034471 —M10 
036160 035344 DH1 HLT 11 
036162 035670 DT1 
036164 034710 —EM11 
036166 035521 DHS HLT 12 
036170 035744 DT5 
036172 034737 EM12 
036174 035521 DHS sHLT 13 
036176 035744 DTS 
036200 034710 —EM11 
036202 035461 DH4 HLT 14 
036204 035732 DT4 
06 034763 EM13 

036210 000000 HLT 15 
036212 000000 
036214 034710 —EM11 
036216 035521 DHS HLT 16 
036220 03576 DT6 
036222 034737 EM12 
036224 035521 DHS sHLT 17 
036226 035762 DT6 
036230 034710 —M11 
036232 035553 DH6 jHLT 20 
036234 036000 DT7 

36236 034710 —EM11 
036240 035553 DH6 sHLT 21 
036242 036022 D110 
036244 034737 EM12 
036246 035553 DH6 pHLT 22 
036250 036000 DT7 
036252 034737 EM12 


CZDMF = MACY11 30A(1052) 


CZDMF P11 08-JUL-80 


036254 


036410 


036412 


035553 


O8-JUL-80 08:26 PAGE 121 
08:25 


SUBROUTINES 


CORMAX : 
~END 


HLT 





SEQ 0126 


08 


---- 


CZDMF MACY11 yah 
CZDMF P11 08-JUL-80 08: 
ADRCNT= 004373 
AUDONE 003024 
AUSTRT 002446 
AUTO.S 010640 
BCCLD 033336 
BINWRD 004714 
BITCON 034114 
BITO = 000001 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BiT13 = 020000 
B1T14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 000400 
BIT9 = 001000 
BM 7055 
BRLVL 012460 
BRw 003730 
BRX 003732 
CALBCC 033334 
CHAR 032532 
CHARSD 032644 
CHRCNT 004712 
CKSWR 007734 
CKSwR1 010014 
CKSWR2 010026 
CKSWR3 010032 
CKSWR4 010036 
CKSWRS 010142 
CLKX 001242 
CLRIO 033676 
CNERR 007300 
CNT.MA 001702 
CNVRT = 104411 
CONERR 007224 
CONN 007115 
CONTAB 002776 
CONVRT= 104410 


SL sense 


~JUL-80 08:26 PAGE 123 


E 10 


CROSS REFERENCE TABLE == USER SYMBOLS 


1518* 15278 

1211 1216 12624 
1266 

19714 
4118 4175 4213 
1571* pig: 16094 
2909* 2984+  3085* 
4078* 4167* 4178 
6057 6059*  6077* 
1758 1759 

1134 1752 1758 
2141 2152 

2685 2722 2770 
35006 3540 3574 
4352 4436 4519 
2069 2171 
2072 2084 2144 
1384 2083 2108 
1088 1175 1178 
1134 1315 1759 
2177 2184 3990 
1742 1765 1767 
2289 2389 2745 
1747 1748 2179 
1748 1868 2289 
2151 2166 2168 
2149 2151 2163 
2120 
2255 2263 22754 
14074 

14084 
4139 4202 4234 
4871* 6872 4927 
5588 5432 5536 
5901* 5905 5912m 
57664 

3637 3683 3729 
1569 1573 1589« 
1382 1414 1629 
1840 

1842 1849 

1823 18584 
2721 2769 2833 
3539 3572 3629 
4169 4207 4261 
5124 5455 5523 
17904 

9654 1087 1089 
1226 1341 1343 
17904 

2074 

12464 


1994 


4302 
3096+ 


57934 
1608 


3054 
3767 
4350 


1663 


4391 


3102* 
4518* 
61074 


59184 


3168+ 
4809* 


3377 
4079 


5758 


6037 


SEQ 0121 


3816* 
6054* 


3436 
4168 


5874 


4664 
5287+ 
5899 


F 10 
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CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0122 





CZ2DMF .P11 08-JUL-80 08:25 

CORMAX 036412 61254 

CRAM 006607 17904 2033 

CRC.CC= 102010 4082 4114 4171 4209 4266 4298 4355 4387 4442 4525 4632 4840 4921 
5157 5256 5526 5629 59154 

CRC16 = 120001 59148 

CREAM 001320 7964 1086* 1892+" 1893 1895* 1899 

CSR 006511 1790# 1998 

CSRMAP 010642 19734 

CTSDLY 034066 60934 

CYCLE 010206 1323 1364 1365 18834 

DATABP 005216 1652* 1655 1677 16804 

DATACL= 104415 8424 2729 2777 2781 2850 2852 2866 2880 2925 2927 2941 2955 3000 
3002 3016 3030 3068 3070 3088 3103 3152 3154 3169 3187 3236 3238 
3256 3320 3323 3341 3350 3393 3394 3403 3440 3472 3512 3544 3582 
3639 3685 3731 3777 3822 3823 3872 3873 3917 4088 4089 4120 4121 


DATAHD 005204 1651* 1673 167684 

DELAY = 104413 8384 

DEVADR 004370 1480* 1515 1525@ 

DEVTAB 003010 1186 12514 

DH 035344 61254 

DH10 035644 61254 

DH2 035365 61254 

DH3 035423 61254 

DHS 035461 61254 

DHS 035521 61254 

DH6 035553 61254 

DH7 035621 61254 

DISPLA 001200 7434 1101* 1107* 1338 

DISPRE 000174 7298 1107 

DMACTV 001306 790# 1124 1279+ 1280 1883 1897 1979* 2205 2211* 2212 2216 2241 

DMCM 007321 1237 17904 

DMCROO 001500 8804 

DMCRO1 001510 8854 

DMCRO2 001520 890" 

DMCROS 001530 8954 

DMCRO4 001540 9004 

DMCROS 001550 9054 

DMCRO6 001560 9104 

DMCRO7 001570 9154 

DMCR10 001600 9204 

DMCR11 001610 9254 

DMCRI2 001620 9304 

DMCR13 001630 9354 

DMCR14 001640 9404 

DMCR15 001650 9454 

DMCR16 001660 9504 

PMCR17 001670 9554 

DMCSR 001404 Ast Fhe 1205 1210* 1215* 1250 1368 1405 1697 1720 1766 1901* 1910 
6* 

OMCSRH 001406 8644 1747* 1748« 1752* 1758+ 1759* 1765* 1767* 1910 1911* 1912 

OMCTL 001410 8654 1912e 1913 1914 

DMNUM 001310 7918 1082 1354 1977+ 1992* 21968 2197 2206 2208 


G 10 
CZDMF = MAC Y11 yee 1 A Q8-JUL-80 08:26 PAGE 125 
CZ7DMF P11 08-JUL-80 08:25 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0123 


DMPOS = 001412 sothe es 1742 1779 1784 19146" 1915" 1916 5703 5716 5758 5874 5952* 
DMPO6 = 001414 8678 1753" 1916* 19178 
DARLVL 001376 8608 1919* 1920" 1921 
DMRVEC 001374 859" 8 =1371 1902* 1903* 1919 
DMS100 001502 8814 

DMS101 001512 8864 

DMS102 001522 8914 

DMS103 001532 8964 

DMS104 001542 9014 

DMS105 001552 9064 

DMS106 001562 9114 

DMS107 001572 9164 

DMS110 001602 9214 

DMS111 001612 9264 

DMS112 001622 9314 

DMS113 001632 9364 

DMS114 001642 9418 

DMS115 001652 946" 

DMS116 001662 9514 

DMS117 001672 9564 

DMS200 001504 8824 

DMS201 001514 8878 

DMS202 001524 892e 

DMS203 001534 897# 

DMS204 001544 9028 

DMS205 001554 9074 

DMS206 001564 9124 

DMS207 001574 9178 

DMS210 001604 9228 

DMS211 001614 9278 

DMS212 001624 932a 

DMS213 001634 9378 

DMS214 001644 942e 

DMS215 001654 947# 

DMS216 001664 9528 

DMS217 001674 9574 

DMS300 001506 8834 

DMS301 001516 8884 

DMS302 001526 8934 

DMS303 001536 898e 

DMS304 001546 9034 

DMS305 001556 9084 

DMS306 001566 9134 

DMS307 001576 9184 

DMS310 001606 9230 

DMS311 001616 9284 

DMS312 001626 9334 

DMS313 001636 9384 

DMS314 001646 9438 

DMS315 001656 948e 

DMS316 001666 9534 

DMS317 001676 9584 

DMTLVL 001402 8624 1923" 1924 
DMTVEC 001400 8618 19218 1922* 1923 
DM.END 001700 9604" 1975 





a a Ate Pe ACE hc EIS wb 
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DM. MAP po laee 879" 1086 1139 1149 1265 1893 1895 1973 1978 2233 


DONE 003 1389* 1409 1819+ 
DT1 035670 
D110 036022 
D111 036044 
DT12 036056 
DT2 035702 
D13 035720 
DT4 035732 
DTS 035744 
DT6 035762 
DT7 036000 
EM} 034166 


EM23 035255 

EM24 035277 

EM25 035322 

EM 034267 

EMG 034333 

EMS 034375 

EM6 034425 

EM? 034444 6125« 

EOM 033610 4620 4621 4759 4751 4823 4824 4828 4829 5139 5140 5145 5146 5543 
5544 5548 5549 5553 5554 5646 5647 60014 

ERCTOO 001704 9678 

ERCTO1 001710 970# 

ERCTO2 001714 9734 

ERCTO3 001720 9764 

ERCTO4 001724 9798 

ERCTOS 001730 982m 

ERCTO6 001734 985a 

ERCTO? 001740 9884 

ERCTIO 001744 991" 

ERCT11 001750 9948 

ERCT12 001754 9978 

ERCT13 001760 10004 

ERCT14 001764 10034 

ERCT15 001770 10064 

ERCT16 001774 10094 

ERCT17 002000 10124 

ERR 00270 1195 12218 1225 

ERRCNT 001232 764# 1350 1377 1690* 1908 

ERRFLG 0013525 803# 1084e 1336¢ 1398 1640* 1653 1667* 17268 

ERRMSG 005172 1650* 1668 16718 

ERRPC 002770 1227 1243@ 


rc -—_—_ —_——— ———$—$ — — 
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CZDMF P11 08-JUL-80 08:25 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0125 

ERTABO 005322 1665 17004 

EXIT = 000205 69748 

EXITER 005252 1685 16904 

FLAG 034112 61064 6125 

FLOAT 002536 11884 1194 

FLIDAT 034122 5541 5546 5551 5559 5600 61108 

FY 002566 11978 1208 1212 1218 

GETQ] 033462 4130 4154 4225 4229 4314 4318 4403 4407 4553 4557 59568 

GETQO §8==. 0033450 4098 4102 4192 4196 4282 4286 4371 4375 4469 6473 59468 

GETS] 032314 2855 2859 2869 2873 2930 2934 2944 2948 3005 3009 3019 3023 3073 
3077 3092 3097 3104 3157 3161 3172 3176 3241 3245 3259 3263 3326 
3330 3342 3351 3395 3406 3410 4642 4646 4669 4673 4692 4696 4707 
4716 4850 4854 4877 4881 4900 4904 493) 4935 4958 4962 4981 4985 
4996 5005 5167 5171 5194 5198 217 §221 §235 5239 5266 5270 5293 
5297 5316 5320 5331 5340 56978 6084 

HALTS 005222 1636 16824 

HILIM 004366 14679" 1506 1524@ 

ICOUNT 001222 7604 1396 14018 

INBUF 007630 1449 1685 1805«@ 

INCHAR 010146 1834 18628 

INIFLG 001324 8024 1110 1130 11378 

INRDY 033154 3824 3874 3918 3926 4754 4768 4773 018 5035 5038 5062 5077 5082 
5353 5368 5373 5397 5412 5417 5477 5487 5560 $577 5582 5652 5668 
5673 58624 

INSTER= 104404 8244 1500 

INSTR = 104403 8228 1932 1984 1997 2096 2110 2119 

INSTR2 004166 1456 14684 

INTTY 012676 2017 2034 2044 2059 2075 2090 22834 

KMCM 007331 1240 1790" 

LIMITS 004314 1495 15064 

LINE 007017 17904 2111 

LOBITS 004372 1481e 1510 152684 1527 

LOCK 001220 759@ 14008 1417 1419 1659 2407* 26238 26469% 246658 26918 25142 25492 25698 
S070" 4111" 6159" 6206 62542 6295 43432 43848 

LOKFLG 001326 8044 

LOLIM 004 364 1478 1508 15234 

LPCNT 001224 761#@ 1395* 1396 1399« 

LRCB = 000200 59134 

LSTERR 001234 765@ 1093¢ 1335¢ 1637 1639* 17276 

LUTYPE= 000000 5882 

MASKX 001244 7734 

MASTEK 006143 1661 17908 

MCRLF 005672 1434 1557 1657 1658 1666 17908 1931 1993 

MCSRX 006073 1340 17904 

MDATA 007672 1587 1597 18078 

MEML IM 1304 789#@ §«1303« 

MEPASS 005733 1339 17904 

MERRPC 220 1664 17904 

MERRX 006120 1346 17908 

MERR2 005761 17904 2218 

MERRS 006006 1276 17904 

MESDAT 034116 4029 4611 4618 4763 4748 4814 4821 4826 4912 5017 5061 5150 5137 
5143 $247 $352 $396 5457 $462 5467 5633 5644 5651 61088 

ME SLD 033634 gone re sb 4617 4767 4820 4825 5134 5142 5461 5466 5540 5545 5550 

64 60144 
MILK 001322 7978 1087 1348 1B91e 1896« 1900 


‘mesxeects se 
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CZDMF MACY11 30A(1052) 

CZ70MF P11 08-JUL-80 08:25 

MLOCK 006044 1317 17908 

MNE W 006145 1271 17908 

MODU 006705 1790# 2058 

MPASSX 006107 1344 17904 

MPFAIL 005675 1724 17908 

MQM 005666 1464 17908 

MR 05756 1326 17908 

MRESET= 004000 69748 

MSTCLR= 104412 8364 1729 
2765 2829 
3568 3625 
4345 4430 

MTITLE 001000 7378 1114 

MTSTN 006131 1662 17908 

MTSTPC 006032 17904 

MVECX 06101 1342 17904 

mv35 007455 17904 2089 

NEXT 001216 7584 1402 
2644 2678 
3461 3493« 
4069* 4158 

NITCH 032344 5703* 5704* 

NOACT 007155 1126 17904 

NODEV 002674 1180 1219 

NUM 006451 1790# 1985 

OCOR 032346 2728 2776 
4752 4830 
5942 6028 

OK 002646 1296 12134 

ONE 001302 788" 6125 

OUTRDY 032500 2836 2843 
3306 3314 
5776 5785 

PACTOO 001702 9664 

PACTO1 001706 9694 

PACTO2 001712 972" 

PACTO3 001716 9754 

PACTO4 001722 9784" 

PACTOS 001726 9814 

PACTO6 001732 9844 

PACTO7? 001736 987" 

PACT10 001742 9904 

PACT11 001746 9934 

PACT12 001752 9964 

PACT13 001756 999" 

PACT14 001762 10024 

PACT15 001766 10054 

PACT16 001772 10084 

PACT17 001776 10114 

PARAM = 104405 8264 1934 

PARAM1 004234 14844 1501 

PARBIT= 040000 6974 

PARERR 004310 1487 1489 

PASCNT 001230 7634 813378 

PERFOR= 004537 6974 

PFTAB 005430 1725 17314 


1986 


O8-JUL-80 08:26 PAGE 128 
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1999 


1500" 
1349 


2008 


1507 
1374 


J 10 


USER SYMBOLS 


2112 





2121 


1511 


2081 2101 

2551 2602 2624 2646 

3298 3372 3431 3463 

3906 3950 4015 4072 

5451 5517 5620 

2406* 2448 2490" 2548+ 
3048* 3128* 3208* 3296+ 
3761* 3807* 3854" 3904+ 
4735* 4802* 5118* 5449% 
3318 3391 3511 4455 

5711# $717 5747 5789 

3137 3145 3220 3226 

4819 5135 5460 5731 

5938 5975 5991 6005 


SEQ 0126 











K 10 
CZDMF = MACY11 30A(1052) O8-JUL-80 08:26 PAGE 129 
CZDMF .P11 08-JUL-80 08:25 CROSS REFERENCE TABLE -- USER SYMBOLS 


POPRO = 012600 6734 1689 

POP1SP= 005726 6714 

POP2SP= 022626 6758 1404 

PRIO 006550 1790# 2016 

PS = 177776 6644 = =1079* = =1374* 822465 = 2.255# 

PUSHRO= 010046 6724 1686 

PUSH1S= 005746 6704 

PUSH2S= 024646 6744 

QV.FLG 001327 8054 1085* 1353* 1393 

RESREG 005220 1678 16814 

RESTAR 005350 1711 17178 

RESTRT 003534 1352 1356 13644 

RESOS = 104407 830" 16 

RETURN 001214 757# = =©1095* 1323* 1327 1364* 1402* 1406 1695* 1698 1730 1948+ 

ROMCLK= 104414 8404 1737 1740 1777 1782 2308 2331 2355 2379 2412 2414 
2454 2456 2467 2469 2499 2501 2520 2522 2556 2558 2574 
2625 2649 2658 2682 2687 2689 2693 2719 2724 2726 2731 
2772 2774 2779 2783 2793 2803 2831 2838 2840 2845 2881 
2915 2920 2956 2981 2988 2990 2995 3031 3052 3058 3060 
3141 3147 3188 3212 3222 3224 3228 3233 3277 3300 3308 
3374 3380 3382 3385 3387 3389 3433 3441 3465 3473 3497 
3509 3513 3537 3545 3570 3576 3578 3584 3594 3596 3627 
3641 3650 3673 3679 3681 3687 3696 3719 3725 3727 3733 
3771 3773 3779 3788 3811 3825 3858 3869 3875 3908 3915 
3957 3960 3980 5983 4022 4026 4034 4074 4163 4258 4347 
4449 4453 4494 4515 4528 4532 4536 4580 4603 4739 4755 
4783 4806 5019 5034 5039 5048 5063 5078 5083 5092 5122 
5374 5383 5398 5413 5418 5427 5453 5471 5478 5488 5521 
5583 5592 5624 5653 5669 5674 5683 5701 5714 5729 5733 
5745 5756 5774 5778 5781 5787 5800 5803 5820 5824 5827 
5855 5872 5927 5931 5934 5940 5950 5960 5973 5977 5980 
6007 6009 6024 6038 6040 

RUN 001316 794# 1088* 1889* 1890* 1897 

SAVACT 001312 7924 = 1274 2216* 

SAVNUM 001314 793# = =61082* = =691351* 1354* 2209+ 

SAVPC 01276 786# 1225" 1245 1532* 1702 

SAVRO 001260 779# = =61541" 1546 6125 

SAVR1 001262 780# 1231" 1540* 1547 

SAVR2 001264 7818 1539* 1548 6125 

SAVR3 001266 782# = =61538* 1549 6125 

SAVR4 001270 783@ 81537" 1550 6125 

SAVRS 001272 7848 8 1536* 81551 6125 

SAVSP) 001274 785a 

SAVOS = 104406 8284 1641 

SCHAR 033150 3814* 3815* 3861* 3862* 5814 5832 5837 5841* 5842 5848* 58584 

SCOPE = 104400 8164 2316 2339 2363 2394 2436 2478 2536 2588 2610 2632 
2750 2811 2886 2961 3036 3113 3193 3282 3357 3417 3449 
3553 3611 3657 3703 3749 3795 3840 3890 3935 4001 4054 
4327 4416 4499 4585 4722 4785 5100 5435 5499 5603 5691 

SCOP1 = 104401 8184 2422 2435 2464 2477 2510 2531 2565 2583 4110 4142 
4294 4326 4383 4415 

SILOLD 032710 3821 3837 3871 3887 58098 

simacc 033210 4093 4125 4187 4220 4277 430 4366 4398 4464 4548 4634 
5159 5258 5532 5635 58824 

SKIP 002632 1176 1179 1200 1203 12094 

SOFTSW 010200 1832 18714 


1958* 
24 


SEQ 0127 












L 10 


CZDMF MACY11 30A(1052) Q8-JUL-80 08:26 PAGE 130 
CZ2DMF P11 08-JUL-80 08:25 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0128 
SOM 033560 5141 5987" 
SPACNT= 004713 1567* 1591 1594* 16084 
SPEED 007341 1790# 2043 
STACK = 001200 6654 1080 1293 1696 1719 


STAT1 001366 8524 1904" 2384 2386 3951 3953 3965 3988 4016 4018 4043 5518 5421 


STATS. 001372 8544 1906* 3969 3991 4040 
STFFCK 033776 3180 3267 4181 4461 4545 4650 4677 4858 4885 4939 4966 5175 5202 


5274 5301 60674 

STFFCL 033716 5838 60454 

STRTSW 001236 Ai 1116* 1119" 1120 1122 1132 1134 1269 1315 1324 1926 1950* 1980 

STUFDT 034142 3063 3065 61164 

STUFLG 033152 3817* 3864* 5835 5849* 58598 

$v05 004402 15364 

SWFLG 010144 1083* 1428 1827* 1854* 18604 

SWMES 007206 17904 1830 

SWMES1 007216 17904 1833 

SWR 001202 744# 1100* 1102 1106* 1116 1274 1279 1384 1391 1415 1430 1630 1635 
1684 1691 1693 1755 1815 1853+ 

SWREG 000176 7304 1106 1815 1873 

$wOO = 000001 6464 1120 1980 2229 

$wO1 = 000002 6454 1324 1926 1950 

SwO2 = 000004 6444 

swO3 = 000010 6434 269 

Sw04 = 000020 642m 

SwOS = 000040 6414 

$w06 = 000100 6404 1755 

SswO7 = 000200 6398 

SwO8 = 000400 6564 1691 

swo9 = 001000 637# 1415 

SWw10 = 002000 6364 1693 

SW11 = 004000 6354 1391 

SW1i2 = 010000 6344 1430 1630 

$Ww13 = 020000 6334 1635 

Sw14 = 040000 632" 

Sw15 = 100000 6314 

SYNC 032364 3438 3470 3542 57214 

SYNLD 033500 4443 4526 4615 4745 4818 5134 5459 552 5628 5967# 

TEMP 001416 8724 1574 1721" 1722 1763* 1768 1774% 1786* 2647* 2653* 2656* 2662+ 

TEMP1 001246 774# = =©1140* 1792 2241* 2242 5726* 5738% 5772* 5783* 5818* 5829* 5870* 5876* 
5888* 5902" 5904* 5907*  5908*  5925* 5936* 5971* 5982* 6021* 6026 

TEMP2 001250 775@ = =61141* 1794 5050* 5051* 5052 5094* 5095* 5096 5385* 5386* 5387 5429* 
5430* 5431 5594" 5595* 5596 5685*  5686* 5687 5770* 5786 5796* 5799 5813+ 
5817* 5844" 5851* 5889" 5894+ 5923* 5939 

TEMPS 001252 776# = =—1143* = =61169* = 1221 1230* 1796 1989 1992 2129% 28512 2853 2926% 2928* 
3001" 3003* 3069* 3071" 3153" 3155% 3237" 3239% 3322% 3324 3402" 3404 4688+ 
4690* 4771% 4772 6896* 4898% 4977* 4979% 5036* 5037* 5052* 5053 5080*  5081* 
5096* 5097 5213 95215" 5231* 5233* 5312" 5314* 5371% 5372* 5387* 5388 5415* 
5416* 5431" 5432 5580* 5581* 5596* 5597 5671* 5672* 5687* 5688 6051*  6061* 
6074* 6087* 6125 

TEMPS 001254 777# = 1144") =—-1798 2002 2005 2011 2014 2115 2118 2124 2127 

TEMPS 001256 7784 = =©1145* 1800 1983* 1996* 2227 5754* 5760* 

TIMER = 104416 8444 2691 3583 3640 3686 3732 3778 3959 3982 4024 

TKCSR 001204 7498 = =1451 1817 1862 2283 6099 















Mm 10 
CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 131 \ : 
CZDMF P11 08-JUL-80 08:25 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0129 


1459 1820 1822 1864 2285 


53 
92 

TPCSR 001210 7514 35 1457 1632 1865 2286 

TPDBR 01212 7528 37* = =61659% 1634* 1867* 2288+ 

TRPOK 004730 16204 
94* 1705 1733 1937 1944 1946 2303* 2327" 2350* 2374% 2405* 2447% 
47% 2599% 2621% 2643* 2677 2714% 2762 2826% 2901* 2976 3047" 3127* 
95* 3369* 3428* 3460* 3492* 3532" 3565* 3622* 3668* 3714* 3760* 3806+ 
03* 4012* 4068* 4157* 42528 4341" 4427" 4510 4598% 4734 4801* 
48« 5617* 
23 





N 10 
CZDMF MACY11 30A(1052) O8-JUL-80 08:26 PAGE 132 
CZDMF .P11 08-JUL-80 08:25 CROSS REFERENCE TABLE -=- USER SYMBOLS 


TST60 031330 5449 55144 

TST61 031752 5515 56178 5692 

TST62 = eeeeee YJ 5618 

TST? 013324 2448 24898 

TTST 003612 1318* 1319 1321" 1322* 13858 

TWOSYN= 010000 6974 

TYPDAT 005206 1656 1674 16774 

TYPE = 104402 8208 1114 1126 1138 1223 1228 1236 
1340 1342 1344 1346 1434 1447 1464 
1664 1666 1670 1675 1724 1330 1833 
2029 2032 2039 2042 2049 2057 2066 

TYPMSG 005106 1654 16578 

VEC 006527 17904 2007 

VECMAP 012216 221 22298 

WHICH 012210 1995 22254 

WRDOCNT 004710 1565* 1598* 16064 

WRKO.F 005174 1669 16724 

XBX 005000 1631 1633 16354 

xCSR 003546 1341 13664 

KERR 003570 1347 1375a@ 

XHEAD 006225 1138 17904 

XLOC 003022 1196* 12148 1217 1248 12618 

XPASS 003562 1345 13720 

XPOLY 033332 4082* 41148 4171* 4209* ~4266* 4298 4355* 
5157* 5256*  5526* 5629s 5898 5900 59114 

XSTATQ 007602 1147 17904 

XTSTN 005330 1663 17034 

XVEC 003554 134 13694 

ZERO 001300 7878 86125 

$COD = eeeeee 602 

SCRAP = 177777 14 22934 2296 2299H 23178 2320 23234 
23954 2398 24014 24378 2440 24638 24798 
2592 25954 26118 2614 2617# 26338 2636 
2710@ 27518 2754 27584 2813# 2816 28224 
3037#@ 3040 30438 31144 3117 31238 86031944 
3361 3365a@ 34184 3421 34248 34508 34 
35284 35544 3557 35614 36124 3615 36184 
3750#@ 375 3756@ 8637964 83799 3802# 38414 
3939 39434 406024 4005 4008% 40554 4058 
42484 43284 331 4337#@ 46178 442 44234 
47234 4726 4730# 47864 4789 4797# 51014 
5503 5510#@ 56044 5607 56138 

SENDAD 003522 724 1112 13584 1682 

$n = 000061 14 = §=2293 2299 2301 23068 2317 2323 
23544 2364 2370 2372 2377 23784 2395 
2445 2451 24524 2479 5 2487 2493 
2589 2595 2597 2602 26034 2611 2617 
2646 26474 2666 2673 2675 2680 26814 
2758 2760 2765 27664 2813 2822 2824 
29054 2963 972 974 3444 29804 3037 
3125 3130 1318 ©3194 203 3205 3210 
3358 3365 3367 3372 33738 4 8=—3418 3424 
3463 34648 3482 3488 3490 3495 34968 
3561 3563 3568 35698 3612 3618 3620 
3672a@ 3704 3710 3712 3717 37184 3750 
3804 3809 3810# 3841 3849 3851 3856 


4387* 


4442 


ag 


4525* 


OF MAW OW M 


mee 
—-OOw 
ouw— 
Owen 


4632* 


4840+ 


SEQ 0130 


4921* 





CZDMF 
CZDMF . 


$Y 


Pi) 


" 


MACY11 30A(1052) 
08-JUL-80 0 


000063 


000017 
036412 


003152 


003766 





08-JUL-80 08:26 PAGE 133 


B11 


8:25 CROSS REFERENCE TABLE -- USER SYMBOLS 
3936 3943 3945 3950 39518 4002 4008 
4072 40734 4144 415 415 4161 41628 
4337 4339 4345 43468 6417 4423 4425 
451468 586 4594 4596 4601 46028 4723 
4799 4804 4805#@ 5101 5112 5115 £120 
5500 5510 5512 5517 55188 5604 5613 

1@ §=2304 23064 2328 23308 2351 23548 
2490 24948 2548 25528 2600 26034 2622 
27184 2763 27664 2827 28308 2902 29054 

2 32118 3296 3299" 3370 33738 863429 
3536" 3566 35694 3623 36268 3669 36728 
3854 38574" 904 3907# 3948 39518 4013 
42578 4342 43464 4428 44318 4511 45148 
5118 51218 5449 54528 5515 55184 5618 
ls 8084 816 8184 8204 8228 8248 

8384 8404 8424 844" 8468 

7094 710 7134 7204 7258 7284 732 
8734 8784 880" 88i4 8824 8834 885a 
8934 8954 8964 8974 8984 9008 901" 
9104 9114 9128 91354 9154 9168 9178 
926" 9278 9284 930" 9318 9328 9334 
9428 9434 9454 9468 9478 9484 9508 
9584 1118 1128 12608 1278 1713 1723 
1981 2025 170 2174 2221 2252 2284 
4717 5006 5341 61254 

12934 

835 1558" 

833 1557 

843 1762a 

839 1735¢@ 
1334@ 5618 
1649 61254 

716 16294 

825 14644 

823 14434 
14478 1467 

14458 14484 

837 17464 

827 14754 

714 1081 17104 1718 

831 15464 

841 17514 

829 1532a 

817 1382a 

819 14144 

733 1079" 1095 1850 

845 17734 

718 16174 

815# 1622 

821 14254 


MNWIWWUM OOOO 
hs — 


2644 


SEQ 0131 





CZDMF = =MACY11 30A(1052) 
08-JUi-80 08:2 


CZDMF .P11 


SABORT 


5028 


gy PA e 08: 


5072 


26 ~=PAGE 


135 


C 11 


CROSS REFERENCE TABLE -= MACRO NAMES 


2364 


5363 


3153 


5407 


3237 


5572 


3652 
4353 


3322 


5663 


3689 
4385 


3402 


DVI & & ENA 
AWOWUY—]- NWO@u 
WM ODWUWO & noo 
WOMrOWMUOE NSO O 


3698 


4688 


3735 


4896 


3744 


4977 


3781 


5213 


3790 


5231 


SEQ 0132 


3921 


5312 


a | 








011 


CZDMF = =MACY11 30A(1052) O8-JUL-80 08:26 PAGE 136 
CZDMF P11 08-JUL-80 08:25 CROSS REFERENCE TABLE -- MACRO NAMES 
3952 3058 3060 3132 3139 3141 3147 3188 3212 
3308 3310 3316 3374 3380 3382 3385 3387 3389 
3506 3509 3513 2537 3545 3570 3576 3578 3584 
3659 3673 3679 3681 3687 3696 3719 3725 3727 
3788 3811 3825 3858 3869 3875 3908 3915 3919 
4026 4033 4074 4163 4258 4347 4432 4445 4449 
4580 4603 4739 4755 4769 4774 4783 4806 5019 
5092 5122 5354 5369 5374 5383 5398 5413 5418 
5561 5578 5583 5592 5624 5653 5669 5674 5683 
5745 5756 5774 5778 5781 5787 5800 5803 5820 
74 5931 5934 5940 5950 5960 5973 5977 5980 
$RCRC 6028 4723 
$SREC 599# = 3554 3612 3658 3704 3750 
$SCOPE 1# = =1378 
$S IMBC 1# = 5882 
SSINAC 599# 3482 
$SOFTC 1 1810 
SSTUFF 6024 3037 
SSWPAC 6028 2589 2611 
STCHAR 6014 4610 4742 4813 5129 
$TCRC 6014 4586 4786 5101 
$TRANW 6014 4631 4839 4920 5156 5255 
STRANI 599" 2066 2703 2751 
$TRPDE iol 816 818 820 822 824 826 828 830 
$TSTN 1# =—2301 2325 2348 2372 2403 2445 2487 2545 
2824 2899 2974 3045 3125 3205 3293 3367 3426 
3712 3758 3804 3851 3901 3945 4010 4066 4155 
4799 5115 5446 5512 5615 
SVARIA la 735 
$WINDO 599" 2813 2888 2963 3114 
$x7 # 2293 2299 2317 2323 2340 2346 2364 2370 
2537 2543 2589 2595 2611 2617 2633 2639 2666 
2822 2888 2897 2963 2972 3037 3043 3114 3123 
3418 3424 3450 3456 3482 3488 3522 3528 3554 
3710 3750 3756 379 3802 3841 3849 3891 3899 
4144 4153 423 4248 4328 4337 4417 4425 4500 
4797 5101 5113 5436 5444 5500 5510 5604 5613 
$ZEROS 602" 3358 
. ABS. 036412 000 
ERRORS DETECTED: 0 
CZDMF, ath gt TOC/SOL/CRF_CZDMF .MAC ,CZ2DMF .P11/FQ:LUTYPE 
RUN-TIME: 15 22 1 SECONDS 
RUN-TIME RATIO: 48/39=1.2 


CORE USED: 


33x (65 PAGES) 


DPT & AAI 
WON LOL ONUIEM 
DWMRONIWUPIWN OWN 
WES NEA Br 


DPT & UNA 
WOWNLEOLONWUEM 
OM HS YVIWOWNS OLN 
ANE WOENMO- & 


HAMANN & AANA 
NWO? DWWOwIi~3w wo 


HAAN N & ANI 
CONF OMONGA SM 
POWMWANOD NWO NW ON 
OD WOM WWI 


SEQ 0133 


